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ABSTRACT 


A high resolution deterministic combat model is analyzed in this thesis. Actual 
Republic of Korea (ROK) terrain data is emploved in the model. The goal of the thesis 
is to analyze key parameters which are routinely used in high resolution combat models. 
These parameters are attrition rate coefficients, force size, courses of action, and the 
Weiss parameter (in the equation for Helmbold type combat). The model’s scenario 
divides the battlefield into three regions; indirect fire, minefields, and direct fire. 
Lethality of Firing Theory and Lanchester tvpe differential equations are used to com- 
pute unit casualties and unit speed in a discrete time increment. The model's output 
(unit casualties and survivors, duration of battle, loss exchange rate) are termed of 
Measures of Effectiveness (MOEs), which are analvzed by Utility Theory and Game 
Theory methodologies. Sensitivitv analvsis is applied to each battle option to determine 
how changes to one or more input parameters affect the model's output. Additionally, 
the model operates in an interactive mode using network attribute data. The model can 
easily be expanded or modified to satisfv a user’s requirements by adding submodels or 


changing input data. 
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I. INTRODUCTION 


A. BACKGROUND 

Since the Korean War (1950-1953), the Republic of Korea (ROK) has invested a 
significant amount of money to defend against the threat posed by North Korea and to 
maintain a peaceful atmosphere on the Korean Peninsula. As industry and the econ- 
omy have developed, it has become necessary for the ROK Department of Defense to 
apply more efficient methods to operate and control the huge defense system. For the 
Army, one major source of defense expenditure has been in developing different combat 
simulation models which can be used in ROK’s terrain conditions. Unlike the North 
Atlantic Treaty Organization (NATO) terrain, the Korean peninsula is very complex 
geographically having many small streams. mountains, hills, and reservoirs. This means 
it is relatively easv to channalize the enemv’s avenues of approach when thev attack. 
Therefore. when the ROK develops an airland combat simulation model. it more pre- 
cisely and realistically describes the Korean geography than other models. Based on this 
concept. it is hoped that this thesis will be an useful addition in helping to develop better 


combat sunulation models. 


B. PURPOSE AND GOAL 

The purpose of this thesis is to analvze the parameters which are heavily used in 
high resolution airland combat models. As the deterministic model is developed, a 
common scenario is used to approach this goal. In this scenario. Red (enemy force) 
attacks Blue (friendly force) through an arbitrary terrain network giving Red a number 
of different routing options. It is assumed that Red can take limited avenues of ap- 
proach since the maneuverability of Red is restricted to certain arcs (routes) due to de- 
stroved bridges or a strong probability of ambush. 

Specifically, the goal of this thesis is to suggest the best courses of action for the 
Blue commander based upon various types of airland battle situations and to demon- 
Strate several decision methods from an analytic viewpoint. The model developed here 
can be easily modified and applied to test other battle situations if one has more precise 


terrain data. 


C. METHODOLOGY 

To build a scenario. an area in ROK near the Demilitarized Zone (DMZ) was se- 
lected and a network was developed having several possible paths for Red forces based 
upon the road conditions of that actual terrain area. Generally. Red attempts to attack 
Blue's fortified positions through the shortest distance path or shortest time path. 
There are several methodologies available to find these paths. This effort will incorpo- 
rate methodologies previously explored bv the AirLand Rearch Model (ALARM) at the 
Naval Postgraduate School. The use of network methodology to model terrain was de- 
veloped by Craig [Ref. 1] and McLaughlin [Ref. 2]. The determination of network at- 
tributes from a high resolution terrain data base was developed by Choi [Ref. 3 : p. 27]. 

Regard each intersection of the roads as a node and the road between the nodes as 
an arc, and add the speed, distance, and width to estimate the trafficabilitv of each arc. 
This information is to be used as inputs for the models. In this deterministic model. 
single round lethality of Firing Theory 1s adopted for artillery fire in the beginning of the 
battle. Lanchester’s Linear Law 1s used for casualties in the minefields. Hembold 
equations are used for direct fire as well as range dependency and ambush attack. Its 
also assumed that the speed of the Red force depends on their attrition rate coefficient 
caused bv the Blue force. In other words, Red's speed 1s a function of Blue’s attrition 
rate coefficient on Red, since the mauverabilitv of the Red force will decrease asmiiies 
get closer to the Blue positions. This will be explained in more detail in Chapter 2. 

Based on the several options available to each side, the battle situations are changed 
to derive the different outputs. Ifthe Red force has M options and Blue has N options, 
the output can be described bv an M by N matmnx of each specific value which can be 
compared and analyzed. These matrices could be Red casualties, Blue survivors, time 
of the battle. or the ratio of Red and Blue casualties. Because these values are verv 
significant factors of the battle, thev are defined as the values of Measures Of Effec- 
tiveness (MOEs). After generating the required matrices of MOEs, they were analyzed 
using the techniques of Utility Theory and Game Theory. Additionally, sensitivity 


analvsis was also conducted for selected parameters. 


bo 


Il. MODEL DEVELOPMENT 


A. SCENARIO 
1. General 
The Red regiment has three infantry battalions and one reserve company and 
the Blue battalion has three infantrv companies and one reconnaissance platoon. Blue 
commander can employ its reconnaissance platoon for a special mission. In the model, 
the reconnaissance platoon of Blue will ambush Red on the most important avenue of 
approach and Blue will defend from two well fortified positions (Node-27, Node-28 in 
Figure 2). The battle will terminate if one of the Red forces reaches either of these two 
nodes. Only infantry forces were considered in the initial runs of the model. Initial 


force elements of both sides are shown in Table 1. 


Table 1. INITIAL FORCE ELEMENTS 
Red force Blue force 
3 battalions : 1500 3 companies: 510 


Ipicservc co.: “150 l recon. pltn.: 40 
Total 1650 550 


® unit = infantrvman. 





The battle area in this scenario 1s taken from one of the ROK Army divisions’ 
assigned sectors. This area 1s relatively flat except for one large mountain, Geumhag 
San, which 1s located 1n the west central part of the battle area. One small river, Daegvo 
Cheon, which flows from the northwest to the southeast, poses no significant problem 
to the Red force when attacking with either mounted or dismounted units. The map of 
this terrain area is shown in Figure 1 and a representation of the network in terms of 
arcs and nodes 1s shown in Figure 2. 

2. Assumptions 
The assumptions and description of the scenario are as follows: 


1. There are three major avenues of approach for the Red force. 


2. The Red force on the second avenue (center) will be divided at node-14, with two 
equal forces and attack to nodes 27 and 28, respectively (This assumption could 
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Figure 2. Network representation of the battle area 
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be changed so that the Red force on the second avenue will attack onlv one of two 
Blue positions as described in Chapter 3). Therefore, denote Avenue-21 used by 
Red attacking to node-28 and Avenue-22 used bv Red attacking to node-27. 


Red force initiates maneuver from their boundary at the same time (from nodes 
be2eou 


Red force has four options to allocate their units (battalions) for each avenue of 
approach, where attacker (Red) actions are treated as states of nature, as follows: 


Option Avenue-] Avenue-2 Avenue-3 
ie 1 Bn. 1 Bn. 1 Bn. 
Z. 0 Bn. 2 Bn. ) oe 
ne 0 Bn. 1 Bn. 2 Bn. 
4, 0 Bn. 3 Bn. 0 Bn. 


Blue force has two options to allocate their units (companies) for each fortified 
defense positions as follows: 


Option _ Fort-I(node 27) —Fort-2(node 28) 
l. 12Co: al Cio}, 
z ZGo. Go: 


Blue force has four options for how to allocate the three scatterable nune packages 
they currently possess. Those options are as follows: 


Option  Avenue-1 Avenue-2 Avenue-3 
l Neko: hae: 1 Pkg. 
2 OB Bd Pe: NeraNe, 
3 OF elie LP ke a) hd ck 
4 0 Pkg. 3 PRe O Pkg. 


7. The number of Red units (battahons) affect the speed of attacking Red forces on 


each avenue. This imphes that Red moves with reduced speed when there are 
inuluple units on one of the avenues of approach. The Red forces also become 
more dense in a given area When muluple umits are on one avenue. 


8. Whenever the Red force reaches a minefield, 1t takes more time to bypass than to 


break through. Therefore, the Red force will choose to break through. 


9. The only artillery Weapon svstem that supports the Blue force is the 155 mullimeter 


howitzer (towed). 


10. Red indirect fire Weapons are not represented. 


11. Blue has two types of minefield packages: preinstalled and scatterable. 


12. The maximum range for infantry direct-fire Weapons 1s 1.1 km (M60 machine gun). 


13. There are no Close Air Support (CAS) aircraft or chemical weapons employed in 


this scenario. 


As described above, Red has four options and Blue has eight options. Therefore, there 


are 32 battle cases in this scenario. 


B. ALGORITHM 
1. Basic model 
The rule for representing the battle is based on discrete time steps. The battle 
clock will begin when the Red force attacks from their original locations, which are 
nodes 1, 2, and 3 in the network representation of Figure 2. The time step interval is 
one minute. 
The basic model is only one of the possible battle cases in this scenario, that 1s, 
one option for Red and one option for Blue which represent one element out of the 4 
by 8 matrix. These options mav be entered interactively. The basic model steps are 


described below: 


@ Input : Characteristics of the network terrain model which include source node (tail 
node), sink node (head node). arc number, distance and speed on each arc. location 
of nunefield, and amount of time for indirect fire. An example of input format 1s 
included in Appendix A. 


© Output: Characteristics of battle results Which include casualties and survivors for 
both sides, the length of battle. proportion of casualties based on weapon types 
(indirect fire. minefield, direct fire), avenues of approach, and positions (nodes) of 
mie the Blue forces. 


Step 1: Read the input data and initialize the forces. time, location etc.. 

Step 2: Set the battle clock to the next time step 

Step 3: Detect the weapon tvpe such as indirect fire, minefield and direct fire. 

Step 4: Compute the casualties and survivors for each weapon type based on Step 3. 


Step 5: Determine the speed of the attacking force and compute the distance it moved 
during that ume step. It is assumed that the speed of Red forces is affected 
bv indirect fire, minefields, and direct fire. 


Step 6: Consider battle termination conditions and decide whether the battle wil! 
continue or not. If the battle does not terminate, go to Step 2. If the battle 
terminates, print the output. 


All these steps occur independently and simultaneously on each avenue. 

The flowchart of the basic model is given in Figure 3, and the following defi- 
nitions apply: 

IF = Indirect Fire battle 

MF = Minefield acquisition 


[read date |—[setinitet conditions 
time = time + dt 


detect IF, MF, DF 
cal! IDFIRE 


ae 


yes 
call MFIELD 


yes 
call DRFIRE 
no 


adjust speed based on S = F(IF, MF, DF) 


update location of RED units 







RED reach BLUE position? 


yes 
battle terminate ! 


Figure 3. Flow chart of computer program for the basic model 


no 


DF = Direct Fire battle 
IDFIRE = subroutine for computing the casualties by indirect fire. 
MFIELD = subroutine for computing the casualties by minefield. 


DRFIRE = subroutine for computing the casualties by direct fire. 


The table for Red and Blue options can be represented as a 4 by § matrix (see 
Table 2). 


Table 2. THE MATRIX OF RED AND BLUE OPTIONS 
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As presented in Table 2, the Red force has four options based on its unit allo- 


cation. and the Blue force has eight options which represent all possible combinations 
of unit allocation with scatterable mine allocation (see assumptions 4, 5, and 6 previ- 
ously discussed). Based on the Blue commander's tactical Viewpoint and considering the 
geographical situations, the O,, (option-2 for Red and option-2 for Blue) battle case 
could be expected to occur in a real battle situation with higher probability than the 
other cases. Thus, O,, case was executed as an example output of the basic model and 
the results are shown in Figure 4. 

In Figure 4, the numeric values corresponding to the Red and Blue options are 
the number of troop units or minefield packages (i.e., Bn, Co, Pkg) each allocates to each 
avenue of approach or position. These values remind the user of what he has entered 
interactively. In fact, this output shows precisely how the battle terminated and what 
the results are for each Blue position. A computer program of the basic model is pro- 


vided in Appendix B. 


RED OPTION ===> Ca 
BLUE OPT1GN 
* SCATERABLE MINEFIELD ===> 0 2 1 
(LOCATED ON ARCS) ===> 30 34 42 
* FORCE ALLOCATION =======> 1 2 





RED FORCE IN AVE#22 TOOK BLUE POSITION#2 : BATTLE END ! 
(BATTLE TIME ===> 225 MINUTES) 


<<< RED CASUALTIES BY EACH TYPE OF BLUE FORGE >>> 


AVENUE#1 0.0 Ceo O-.0 
AVENUE#21 23.4 47.1 IfsyS5,,. 10, 
AVENUE##22 2304 47.0 406.2 
AVENUE#3 Cz0 Zone 1925 

46. 8 Lice 588. 6 


CASUALTIES SURVIVORS 
POs TON = bees 134.3 
Pool TON =2 136.47 1 ee as. 


<<< TOTAL CASUALTIES AND SURVIVORS >>> 





Figure 4. The output of the Basic model (BATTLE2 case) 


2. Units casualties 
a. Indirect fire 
Casualties caused by indirect fire weapons are computed using single round 


lethaltv and Weapon firing rates. Target density is a major factor in computing casualties 


and is defined as the distance between adjacent soldiers. The dispersion between troops 
decreases as Red allocates more than one unit (battalion) to one avenue. In other 
words, the number of Red infantrymen in a given area will increase. Also, in this model. 
the targets are represented as two dimensional, which means that an artillery projectile 
is represented as detonating on the ground. not in the air. A target under attack by ar- 
tillery could consist of many personnel performing various functions of combat, and 
such consideration is taken into acount in the computation of lethality. Lethal areas are 
computed for single conditions such as prone personnel. The definition of lethal area 


A, is given by equation (2.1). 


+00 +00 
Av=[ | pleyit) dds (2.1) 


where p(x.v|]H) 1s the conditional probability that a hit on a target element located at the 
point (x.¥) on the ground results in an incapacitation for given height of burst H (H =0 
in this model) [Ref. 4: p. 14-9]. 

Using the Gaussian Lethalitv Function p(x,vJH) = e-®?-3?2? | and trans- 


forming into polar coordinates, equation (2.1) becomes equation (2.2). 


+00 +09 
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A Red infantryman is assumed to be killed if he is within the lethal area. 
Thus, the probability of kill is the probability of hitting the lethal area multiplied by the 


proportion of lethal area of the entire target area, given in equation (2.3). 
P(kill) = P(hit) x Prop(lethal) (2.3) 


The Prop(lethal) is calculated by dividing the total area of the Red force by the total 
lethal area per unit time from equation (2.4), and P(hit) is computed for a two- 


dimensional target by equation (2.5). 
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where 
R,: rate of fire per unit ume 
A, : lethal area of each round 
Row,, : row spacing of each unit (infantrvmen) 
Col,, : column spacing of each unit (infantrymen) 
RF, : current Red force size 
2 2 : 
a 1 a Hy 
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where 
a: lethality constant for each round tvpe (where Total A, = 22a?) 
H, : Mean distance of deflection error 
u, : mean distance of range error 

co, : standard deviation of deflection error 

c, : standard deviation of range error 


Finally, the casualties bv indirect fire per unit time (/F,,,) are computed by 


as 


equation (2.6) based on equations (2.3) through (2.5). 


IF.ae = P(kill) x RF. (2.6) 


Table 3. THE RELATIVE LETHAL AREAS FOR A 155MM HOWITZER 


Weapon and Projectile Area for Personnel (Open’Woods : m?’) 
. l ‘ 
Caliber ! Scania 
ire M107 103,42.5 Ub ome oe) 6.67/2.0 
M 109A] E Sara 
155-mm M4483 981 580 508; 308 14.2'9.5 
M549 100 44.8 §2.2'26.0 1.50°0.83 










The source for 155 milimeter howitzer lethalty data is [Ref. 4: p. 43-9] which 1s shown 


in Table 3 for a range of I14km. For example. the value of a single round lethal area, 


70.87°, is used when the Red force is in the prone position and is subjected to Blue in- 
direct fire attack in the open. 
b. Afinefield packages. 

It is assumed that the Blue force has five preinstalled minefield packages: 
one on Avenue-l, three on Avenue-2, and one on Avenue-3. Scatterable minefield 
packages are also employed by the Blue commander. The area fire assumptions of the 
“Lanchester Linear Law” are generally applied to indirect fire patterns of artillery. 
Minefields also exhibit these same patterns, and therefore the Lanchester Linear Law 
equations are appropriate for assuming minefield attrition. The equation for preinstalled 
minefield casualties is given in equation (2.7). 


PMF eqs = coef * Nred X \Pmine X Tp (2.7) 


The equation for scatterable minefield casualties is shown in equation (2.8). 


SMF cas = Scoef xX Mea X NSmine X Ts (2.8) 


where 
PMF.,, : number of casualties by preinstalled minefield 
SAF_,.: number of casualties bv scatterable minefield 
Poe i attrition coefficient of preinstalled minefield 
Scoer | Attrition coefficient of scatterable minefield 
NP ine) NUMber of munes in one preinstalled nunefield 
VS_,,.: number of mines in one scatterable minefield 
T, : time to traverse a preinstalled minefield 
7, : time to traverse a scatterable minefield 


N,.g i number of infantrymen traversing the minefield 


The time to traverse each minefield is a constant value. When the Red force 
moves on an arc that has a minefield, Red’s traversing time on that arc 1s increased by 
the amount of time needed to traverse the minefield. However, Red’s speed on that arc 


decreases based upon the time to traverse the minefield, which will be discussed in detail 
in section 3. 


c. Direct fire 
Based on consideration of historical combat data, Helmbold has proposed 


a modification of Lanchester’s equation for “modern warfare” to account for inefficien- 
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Figure 3. Relation between the defender’s casualty rate and the attacker/defender 
force ratio. (NOTE: In the above figure, A denotes the attacker's force 


level, and’ D denotes that of the defender) 


cies of scale for the larger force when force sizes are grossly unequal. His basic idea 1s 
to modifv the relative force attrition (or fire effectiveness) capability by a multiplieamie 
factor depending on only the force ratio. Helmbold considered the special case in which 
the fire effectiveness modification factor is a power function. In this case, the casualty 


rates of N and Y are 


dx ¥ l—w ae * } — 

Se = alt) (=F)'*y with x(0) = xp (eg 
dy + las x ; are 2) 
a ee) ec a 


Where w is called the Weiss parameter, and equations (2.9) and (2.10) are called the 


equations for Helmbold type combat. 
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Fieure 6. Relation between the attacker’s casualty rate and the attacker/defender 


force ratio. 


These equations are particularly significant because a sinple generalizauon 
of them gives a much better fit to casualty rate curves used in several important con- 
temporary large scale combat models than does Lanchester’s classic model of modern 
Warfare. As for the case of constant attrition rate coefficients (1.e., “a(t)” and “b(t)” from 
equations (2.9) and (2.10) become “a” and “b”), the equations for Helmbold type combat 
vield the Square Law when w = 1, the Linear Law when w = 1,2, and the Logarithmic 
Law when w = 0. 

Figure 5 shows the relation between the defender’s casualty rate (expressed 
as a fraction of his current force level, x(t)) and the attacker, defender force ratio for the 
model dx/dt = —a(x/3')'"* vy with X defending. Figure 5 is X‘s fractional casualties 
plotted per unit time versus the force ratio y/x (denoted in the figure as A.D) for the case 
in which Y attacks and X defends. In Figure 5, w=1 corresponds to the case in which 


A'S casualty rate is proportional only to the number of enemy firers, and (in the svm- 


metric case in which Y's casualty rate has the same functional form) consequently the 
corresponding atirition model 1s given bv Lanchester’s Square Law equation. We ob- 
serve that in this case (1.e., W=1) X’s fractional casualties per unit time are directly 
proportional to the force ratio A’ D when Y attacks and X defends. Refering to equation 
(2.9), we see that W=w, corresponds to a more efficient use of the attacker's firepower 
for force ratios A’D = y/x > | than does w=, when | 2 w, > w,, since the attacker's 
fire effectiveness modification factor for w=w, (1.e., (x/y)'-"1 ) is greater than that for 
w=w, When y/x > 1 [Ref. 5: p. 299]. The following is a numerical example for Figure 
a 


SE SAMELE 
Let a = 0.010 
b = 0.020 
x = 10 (defender force size) 
y = 30 (attacker force size) 


hence, attacker to defender force ratio A/D = y/x = 3.0 


Using equation (2.9), fractional casualties per unit time 


for X (the defender) are as follows: 


w=1 w=1/2 w=-1/4 w=-0 
=Gx/ at 0. 300 O.e173 Ola Os100 
=(l/x) Cdx/dt) 0. 030 O;- 0173 020132 0.010 


Figure 6 shows the same type of plot when X is the attacker and Y is the 
defender. In this case, the casualty-rate curve corresponding to the Square Law 1s a 
hyperbola. Note, the smaller the value w (0< w< 1), less efficient use of defender’s 
firepower is made when attacker to defender force ratio (AD) is greater than 1.0. 
However, the reverse phenomenon occurs when A/D is less than 1.0. 

The strength of the equations for Helmbold type combat 1s that it easily 


incorporates either area fire or aimed fire with the Weiss parameter, “w’. These 





Figure 7. Relationship between range and attrition coefficient 


equations are based on the perception that limitations in space, terrain masking and 
target engagement opportunities prevent a large force from using its full firepower. This 
deterministic model uses these Helmbold type combat equations for direct fire from 
fortified Blue positions (node 27 and 28). and the Lanchester’s Mixed Law (which 1s the 
special case of Helmbold type combat where w= 1 for one side and w= 1 2 for the other) 
is utilized for ambushes on arc-19 of the second avenue of approach. The ambush point 
is determined by the Blue commander. The ambushes will terminate when the Red 
forces reach the Blue ambush point, and Blue survivors will retreat to join their main 
forces at node-27 or node-238. 

The range dependency 1s considered for both cases (at nodes 27 and 28, and 
the ambush point). This implies that attrition rate coefficients for each side increase as 
the Red force approaches the Blue position. Plotting attrition rate coefficients as a 
function of range shows how different values of uw (power factor based on different 
Weapon types) affect battle outcomes. Figure 7 shows the relauonship between range 
and attrition coefficients. 

A common tactic that is emploved to counter multiple Red forces ap- 


proaching a Blue position is discussed next. Each Blue position has two possible ave- 


Avenue-a 


Avenue-b 


Boundary of 
Direct-fire & 


Blue position 





Figure 8. Battle case when a Blue is threated from two directions 


nues of approach: Avenue-! and Avenue-21 for node-28, and Avenue-22 and Avenue-3 
for node-27. If a Blue position is threated simultaneously from both avenues of ap- 
proach within its direct fire region, Blue allocates firepower based on the proportion of 
Red forces on that avenue of approach. The number of Blue forces firing on Avenue-a 


Ie sCiveMunmeq Me tie ia ele) 


R ee 
RF, ~ RF, 


od 
i 


BT, = BF x ei) 


The number of Blue forces firing on Avenue-b are given by equation (2.12) 


RF, 


CE ANS Tratontn ae 


(2:1) 
where 

BF, : Blue forces firing into Avenue-a 

BF, : Blue forces firing into Avenue-b 

RF, : Red forces attacking from Avenue-a 


RF, : Red forces attacking from Avenue-b 


BF, : Blue forces at the moment two Red forces engage a Blue position. 


Once the Blue force allocates its firepower. 1t continues at a steady rate until battle ter- 


mination. Figure § depicts a Blue position being attacked by Red units on two avenues 
of approach. 


The following equations used in this deterministic model represent both 
range dependency and the Weiss parameter. 
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where 


MemINcdulOnce Size 

Pepe 1Oncessize 

a: MaXimum) attrition rate coefficient to Red from Blue 
6, : Maximun} attrition rate coefficient to Blue from Red 
r,: current range between Red force and Blue force 


Ynax 2 MAXIMum range between the Red force and the Blue force (1.1 Km by 
assumption). 


yu, : power factor, based on Blue weapon types 
u, : power factor, based on Red weapon tvpes 
w, : measure of efficiency which the Blue force engages the Red force. 


w, : measure of efficiency which the Red force engages the Blue force. 


Equation (2.13) is used for Red casualties while equation (2.14) is used for Blue casual- 


ties during a specific time step. Note that different values of u and w are used for the 
Red and the Blue force. 


3. Unit speed 
a. Indirect fire and Minefields 


When Red forces move over the arcs which have indirect fire or minefields, 


they are delaved for a specified amount of time. If the delav time is denoted by DT, the 
updated speed 1s computed bv equation (2.15). 
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Figure 9. Speed of attacking force versus their attrition coefficient [S vs a(r)]. 
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arc, : arcs Which are being subjected to indirect fire 

arc, : arcs Which have preinstalled minefields 


arc, : arcs Which have scatterable minefields 


b. Direct fire 
To update the location of the Red force in the direct fire region, equation 
(2.16) is used to calculate the Red force speed during each time step. The equation 
shows that unit speed decreases as the range between opposing forces decreases, but gets 


no smaller than a specified minimum speed (S 


ails 


a v 
Snew = oid x (1 — ane + Smin (2.16) 


where 
v : power factor, based on different weapon types 
S,. : updated speed of attacking force 
Siig: Speed of attacking force for past time step 
Sma. Minimum speed for the attacking force 
a,: current attrition coefficient 


a: Maximum attrition coefficient 


Equation (2.16) is portrayed graphically in Figure 9. Actual model results are discussed 
in Chapter 3. 


4. Advanced model 

To obtain the required data for analysis, the basic model 1s expanded. The ad- 
vanced model uses the basic model as a submodel and produces two output matrices (see 
Figure 11). The upper portion of the figure is the output matrix of four selected MOE 
values for use in Table 2, which is a 4 by § matrix for the Red and Blue options for each 
MOE. MOE-1 through MOE-4 represent Red casualties, Blue survivors, duration of 
battle. and Red to Blue casualty ratio, respectively. The lower part of the figure con- 
tains utility values for three different utility functions (Linear, Squared, and Square 
Root) versus Blue options for MOE-2 values (Blue survivors). The utilitv values are 
based upon the wav the Blue commander weighs the Red options. The characteristics 
of each utility function and weighted utility values are discussed in Chapter 3. 

In the advanced model, the user can decide whether the attacking Red forces 
through Avenue-2 are equally divided at node-14 (BAT TLE2 case), or continue to attack 
to onlv one of the Blue positions (BATTLE! case). The computer program of the ad- 
vanced model 1s listed in Appendix D. The flow chart of the advanced model is in Figure 


10, and the following definitions apply: 


BATTLE] = basic model which has three avenues of approach (Red force on 
Avenue-2 will choose only one of two objectives to attack). 


basic model which starts with three avenues of approach but divides 
into four because the Red force on Avenue-2 will be divided equally at 
node-14 and attacks toward each objective, respectively. 


BATTLE2 


read data 


Do 10: =1,4: select RED options 


Do 20: = 1,8: select BLUE options 


yes 


cal) BATTLE1 


no 


call BATTLE2 


print MOE, UTILITY matrix 


Figure 10. Flow chart of the advanced model 
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numeric value (1, 2. or 12) which is supposed to be given bv the model 
user: if WAVE2=1, it will be a BATT LEI case, and all Red forces on 
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These outputs will be analyzed in more detail in the next chapter. The example output 


of the advanced model 1s shown 1n Figure 11. 
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Il. MODEL OUTPUT ANALYSIS 


ae OVERVIEW 

As mentioned in Chapter 1, the purpose of this thesis is to analyze the kev variables 
of air-land combat models in high resolution and provide some analvtical methodologies. 
This chapter focuses on several methods of analysis of model output while the following 
chapter explores various sensitivity analyses. 

Since this model is sequenced by time steps, the user can easily visualize the battle 
situation as the battle progresses. For example, if the Blue force places a certain size 
minefield on a certain arc of the network terrain model, the output will show how the 
minefield affects the casualties and speed of the Red force. The next four figures (Figure 
12-15) provide more displavs of battle situations which occur on each avenue. Figures 
]2-15 are created based on sample output of the basic model in the previous chapter. 
In this battle case, the Red force is assumed to take option-2 (allocation of two battal- 
ions on Avenue-2, one battlion on Avenue-3, and no unit allocation on Avenue-1). The 
Blue force is assumed to employ option-2, which locates one company on position-] 
(node-28) and two companies on position-2 (node-27), etc. (see O,, of Table 2 in Chapter 
2). 

Figure 12 shows how the Red and Blue force sizes are decreasing on each avenue. 
Note that the Red forces attacking on Avenue-22 are severely attrited and end up with 
approximately one third of the initial forces even though thev were reinforced by a re- 
serve company (150 infantrvmen). The unit reinforcement is supposed to occur if the 
Red forces are less than the Blue forces after they are engaged in the direct fire battle. 
On Avenue-22 of Figure 12, Red on that avenue is reinforced at battle ttme 160 which 
appears to be the beginning of the direct fire battle. The Blue force lost more than half 
of the initial forces in combat on position-2. The approximate number of casualties 
caused by the indirect fire and ambush attack can also be observed. Note, in Figure 12, 
that the Red casualties on Avenue-22 are much more than those on the other avenues 
of approach. In other words, the intensity of the battle between Red forces on 
Avenue-22 and Blue force on position-2 was very high. There are no forces on Avenue- 1 
because the Red force did not allocate any forces there. 

Figure 13 depicts the size or proportion of Red casualties in relation to each weapon 


emploved by the Blue force, such as indirect fire, mines, and direct fire. For example. 





Figure 12. Red and Blue force sizes over time 


on Avenue-22, a high proportion of the Red casualties were due to direct fire. Another 
item depicted is that the trme when the Red force engaged in direct fire 1s based on the 
Slope of the curve (1.e.. the point that the slope of curve changes abruptly). An ambush 
attack occurred from approximately 55 to 90 on the battle clock (for 35 minutes) on 
Avenue-2 (actually this happened before the Red was divided onto Avenue-21 and 
Avenue-22 at node-14). The Red force on Avenue-21 entered the direct fire region at 
about 205 battle clock time, and at about 160 on Avenue-22, and at about 210 on 
Avenue-3. So, after 210 minutes, the Blue position-2 started to be threatened from two 
directions which were from Avenue-22 and Avenue-3. Note, even though the range of 
Avenue-21 (9.45Km : initial distance between Red and Blue force when the battle clock 
equaled 0) was much shorter than that of Avenue-3 (13.55Km), the Red forces on 
Avenue-21 and Avenue-3 were engaged in direct fire with the Blue force for a shorter 
period of time (between 205 and 210 minutes). That was because the Red forces on 
Avenue-21 were attrited more by Blue forces and their obstacles than those on 


Avenue->). 
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Figure 13. The Red casualties by different types of Blue weapons 


The Blue commander mav want to know where the Red forces are at certain times 
and the distance from which thev are attacking. Figure 14 shows not only when the 
battle terminates but also who reached one of the Blue positions first. The Red force 
from Avenue-22 took the Blue position first in this battle case. In Figure 14, the slope 
of each curve represents the speed of the Red forces. For example, Avenue-3 has a 
constant speed from 0 to 130 battle clock time which means there is no attrition during 
that time, and Avenue-21 and Avenue-22 have very small slopes (low speed) during an 
ambush attack by Blue forces (from 55 to 90 battle clock time). 

The speed of Red force is another important factor which can cause different Blue 


responses. Sometimes, the Blue forces need to know when the Red forces will reach their 
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Figure 14. Distance between Red and Blue forces over time. 


positions in order to prepare and decide on an effective course of action. The average 
speed of the attacker can be calculated from Figure 14. 

Figure 15 also shows how fast the Red forse moves and how their maneuverability 
is reduced bv indirect fire, nunefields, and the direct fire of the Blue force on each ave- 
nue. In the direct fire region, the Red forces are forced to slow their movement depicted 
bv exponential shaped curve. Note how the curve changes during the ambush battle (at 


55-90 battle clock). 


B. MEASURES OF EFFECTIVENESS (MOES) 
After considering the battle situations, four MOE values were selected to estimate 
how they changed in each of the time steps. The four MOEs are as follows: 
e MOE-1: number of Red casualties 
© MOE-2: number of Blue survivors 
e MOE-3: duration of battle 


¢ MOE-4: ratio of Red and Blue casualties (Loss exchange rates) 
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SPEED OF RED FORCE ON EACH AVENUE 
AVENUE-21 AVENUE -22 


¢ 





Figure 15. Speed of Red force on each avenue over time. 


Larger MOE values are better for the Blue forces in all cases. The characteristics of all 
the MOEs’ for this scenario are shown on Figure 16. For the particular option of Red 
m@maepiue, refer to Table 2 in Chapter 2. 

For MOE-1, if the Red chose option-2, then the Blue force should select option-1, 
because the Blue force wants to maximize Red casualties (MOE-1). Blue has no large 
differences among its options for Red option-1. Note that Red options 2 and 4 show 
approximately the same tendency and this also happens for MOE-3. This implies that 
there is some relation between MOE-1 and MOE-3. In other words, Red casualties de- 


pend on how long the battle lasts. 
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Figure 16. The NIOE values for each options of Red and Blue (BATTLE2) 


For MOE-2, the Blue forces are affected by the Red options in Blue option | 
through 5 but they are not severely affected in Blue option 6, 7, and 8. Note that Red 
option 2 and 4 of MOE-2 show almost reverse trends against those of MOE-I. This 
implies that the Red casualties have a negative correlation with the Blue survivors which 
agrees with the theoretical battle concept. 

For MOE-3, Red option-3 has a longer battle time than any other options. The 
reason this occurs is that Red’s main forces (two battalions) attack to the Blue positions 
over the Avenue-3 which is the longest among the three major avenues of approach. If 


the Red forces choose option 2 or 4, MOE-3 has constant values of 225 and 229, re- 
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spectively. In other words, when the Red force allocates more than two units (battal- 
ions) on Avenue-?2, the duration of battle will be same regardless of Blue’s options. 

MOE-4 seems to have some relationship with MOE-2, but the relationship is not 
entirely clear except for the Red option-1. It would require more analvsis to verifv the 
relationship between them such as a coefficient of correlation (p). 

To summarize the MOEs, it is difficult to pick the best option which is the most 
benefitial for all MOEs for the Blue force. The course of action is strongly based on how 
Blue’s decision maker wants to drive the battle according to his tactical courses of 


action. 


C. COMPARISON BETWEEN BATTLE! AND BATTLE2 

This section will discuss differences between the results of BATTLE] and 
BATTLE2. BATTLE]! has two approaches which the Red force can take on Avenue-2. 
So, in total, three battle types are compared. For a description of BATTLEI and 
BATTLE). refer to the last part of Chapter 2. The output of BATTLE] came from the 
same battle which was discussed in Chapter 2 (Red’s second option with Blue’s second 


option). The differences are given in Table 4. 


Table 4. COMPARISON OF MOES BETWEEN BATTLE! AND BATTLE2 


BATTLEI1 
value names : Ba TTLeE2 
with Avenue-2] with Avenue-22 


WOE 
MOE 


MOE: ni 
MOEW 


Who reaches Redon Avenue-3 Red on Avenue-22 | Red on Avenue-22 
Where first? to Node 27 to Node 27 to Node 27 





From the Red force’s viewpoint, it is better to choose Avenue-22 over Avenue-21 
based on Red casualties (MOE-1) and duration of battle (MOE-3) since 609.3 < 763.3 
and 228 < 264 [Note, the smaller MOE values is better for the Red force]. Compared 
with BATTLE2, if the Red force chooses Avenue-22 in BATTLE], it can reduce its 
casualties and kill more Blue forces, even though the duration of battle increases by three 
minutes. The Red Blue casualty ratio (MOE-4) is indifferent as to whether the Red force 


3] 


chooses Avenue-2! or Avenuc-22 in BATTLE! (1.95 and 1.98). In BATTLE2,. MOE-4 
ismmuch lagser, 

When the Red force chooses Avenue-21 in BATTLE]. the duration of battle in- 
creases to its greatest value. because the Red forces attacking through the longest path 
(Avenue-3) reached the Blue position (node-27) first and battle was terminated. From 
Blue’s viewpoint, if the Blue force attempts to prolong the battle. it will attempt to 
channelize Red forces on Avenue-2 into Avenue-21 (because the duration of battle for 
BATTLE! with Avenue-21! is the highest: 264 minutes in Table 4). Installing more 
mines and obstacles or conducting ambushes on Avenue-2 should be considered by the 
Blue force. As shown in Figure 17, Blue is at a disadvantage if Red chooses Avenue-22 
in BATTLEI (i.e., the best wav for Red). Since Figure 17 was drawn with MOE ratios 
based on BATTLE? battle type. it clearly shows the relative proporuon of changes 
among the three battle types. Figure 17 also shows that the attacking force usually has 
the advantage in concentrating its forces on one objective, which is a well-known tacucal 


Conceal Of war: 


A21 : BATTLE! WITH AVENUE—21 
A22 : BATILET WITH AVENUc—22 
A2 : BATTLE2 
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Figure 17. Ratio of NOEs in BATTLE! types based on BATTLE2 type. 


Figure 18 describes how all the battle case MMOE’s change when the Red forces that 
are on Avenue-2 choose Avenue-21. Compared with BATTLE2 (Figure 16), Red casu- 


alties (MOE-1) and the ratio of Red to Blue casualties (M{OE-4) are relatively small, and 


M.0.£-1(RED CASUALTIES) W.0.£-2{BLUE SURVIVORS) 


| 4 8 


4 
BLUE OPTIONS BLUE OPTIONS 
M.0.€-3(BATILE TIME) M.0.E—4{CASUALTIES RATIO) 





Figure 18. MOEs for each options of Red and Blue (BATTLE! with Avenue-21) 


the variance of Blue survivors (MOE-2) based on the Red options is large. Generally, 
the duration of battle (MOE-3) increases in BATTLE] on Avenue-21, though Red cas- 
ualties decrease (1.e., rate of killing per time is decreased). This fact implies that the 
number of units (infantrymen) engaging in direct fire in BATTLE] on Avenue-21 is 
smaller than that of BATTLE2. In other words, the troop density in BATTLE] on 
Avenue-2] is small. 

Figure 19 shows how all battle MOEs change when Red forces on Avenue-2 choose 
Avenue-22. In this battle, Red casualties (MOE-1) are the smallest among all three 
battle types. For MOE-], there is a interesting phenomena which is that Red option-1 


case has a reverse shape from all other Red option cases with respect to the Blue 


38 
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Figure 19. NMIOEs for each options of Red and Blue (BATTLE! with Avenue-22 


options. For the duration of battle (MOE-3). there are no large differences among the 
Red options. All MOE-3 values are between 205 and 235 minutes of battle time, be- 
cause all 32 battle cases (four Red options with eight Blue options) are terminated by the 
Red forces on Avenue-22. Therefore, this deterministic model shows that the Blue force 
needs other courses of actions in order to hold its potions for more than 4 hours. Blue 
survivors (MOE-2) and ratio of Red to Blue casualties (MOE-4), values are relatively 
constant for each Red option based on Blue options. 

In summary, the assumption that the Red force will choose BATTLE] on 


Avenue-22 forces Blue to consider other courses of action against Red. 
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D. UTILITY THEORY 
1. General 

Individuals (or Decision Makers) frequently must choose among alternatives 
that differ, aniong other things, in the degree of risk to which the individual will be 
subjected. The clearest examples are provided by insurance and gambling. An individ- 
ual who buys fire insurance on a house he owns 1s acceping the certain loss of a small 
sum (the insurance premium) in preference to the combination of a small chance of a 
much larger loss (the value of the house) and a large chance of no loss. That is, he 1s 
choosing certainty in preference to uncertainty. An individual who buys a lottery ticket 
is subjecting himself to a large chance of losing a small amount (the price of lottery 
ticket) plus a small chance of winning a large amount (a prize) in preference to avoiding 
both risks. He is choosing uncertainty in preference to certainty. [Ref. 6: p. 234]. 

In order to develop a means to rank probability distributions we must resort to 
the theory of “Ctilitv”. This provides a consistent way in which to combine different 
figures of merits or sub- MOE’s, subjective and judgemental factors, and probabilistic 
aspects of outcomes (1.¢., risk factors) into an overall MOE appropriate for the level in 
the hierarchy in which each decision maker must function. [Ref. 7: p. 9]. 

2. Application 

Three diflerent utilitv functions are proposed to compare each battle situation 
by using MOE-2, which is the number of Blue survivors. These utility functions are re- 
presented as linear, squared, and square root, and are depicted in Figure 20. The utility 
curves reflect the decision maker’s judgement. 

a. Linear Utility 

Using the fact that the utility functions are arbitrary up to a positive linear 


transformation. for convenience we define: 

U(550 survivors, 1.e.,no losses) = 100 

U( Osurvivors, 1.e., all losses) = 0 
As a Blue decision maker, it is assumed that if the number of survivors decrease to less 
than 340, which is the size of two companies (i.e., if they lost one company out of three), 


the utility value of the Blue force drops with a 10 percent step change. The appropriate 


function for linear utility is given by equation (3.1). 
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UTILITY FUNCTIONS(3 TYPES) 
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Figure 20. Three different utility distribution functions. 


CG) =e 





Eur 10, x> 340 
oO 


= 


otherwise (331) 


b. Squared Utility 
This is concave upward function which will result in a risk prefering deci- 


sion. The appropriate function for squared utility is given by equation (3.2). 





0 , otherwise (352) 


c. Square root Utility 
This utility curve is concave downward. It generally represent the risk 
averse case; most individuals and organizations generally are risk averse with respect to 
most decisions. The appropriate function for square root utility is given by equation 
(3). 


Ux)= 4264 , x>0 


0 , otherwise (3. 


If it is assumed that Red’s options are weighted as w,, w,, 43,44 for each 


option. then weighted utility values can be calculated by equation (3.4). 
U(x) = w, U(x) + we U2(x) + wy U3{x) + wy O,(x) (3.4) 


where 
U(x) : weighted utility value 
w,: proportion of weight for i-th Red option. O<wj<1loo 1 = 1,2,3,4 


U(x): utilitv value of i-th Red option. 1 = 1,2,3,4 


As an example. with given values of w, (0.05, 0.70, 0.05, 0.20), the weighted 
utility values for each function are shown in Figure 2]. This figure represent the char- 
acteristics of MOE-2 for the Red option-2 well, because the Blue decision maker puts 
large weight (0.70) on the Red option-2 (see Figure 16 for MOE-2). Note, in the Linear 
Lulity case, Blue options 6 and 8 are emphasized because their MOE-2 values are 


greater than 340 (1.e., Blue survives with more than two companies) while the others are 


not. 
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Figure 21. Weighted utility values for each function. 


E. GAME THEORY 
1. General 

In game theory. the word “strategy” has a very definite meaning, namely, “a 
complete rule for decision making”. [Ref. 8: p. 2]. By the assumptions, all initial MOE 
Values consist of a 4 by § matrix and the values for each MOE matrix come from the 
output of the advanced model (Figure 1] in Chapter 2). A strategy is a particular Blue 
opuon paired with a particular Red option. In order to study the characteristic proper- 
ties of games of strategy and find an optimal strategy for the two plavers (Red and Blue), 
the 4 by 8 “Rectangular Game’ 1s utilized. Two theorems are also used to compute the 
value of the game. [Ref. 9: p. 34 and 39}. 


Theorem 1.: Let 
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be anv matnx, with m rows n columns, and let the expectation function E(X,Y). for any 
eax || ald ey —j\y, --. yy\that are members of S, and S,, respectively. be de- 


fined as follows: 


m n 


E(X,Y) = ) ) a0) (3.5) 
i=1 j= 
Then the expressions 
es a ECG) (3.6) 
and 
ay maak E( X,Y) (327) 


exist and are equal. Where; 
Se close subset or Wholesspace (£_) which have elements, x,, ..::, x. 


hee close SUeset or Wole Space (/) which have elements, J. «-....3,- 


Theorem 2. : Let E be the expectation function for an m xn rectangular game, 
let y be a real number, and let \” and }* be members of S, and S,, respectively. Then a 
necessary and sufficient condition that v be the value of the game and that \" and }" be 


@rumialstratecies for P, and P,, respectively, is that, for] <i<m and l<j<n. 


Eli,¥ )<v< E(X /j/). 


2. Application 
a. NIOE-1 (Red casualties ) 
The initial 4 bv 8 matrix is reduced to a 3 by 5 matrix which results in a 
Mixed Strategy! solution (see Figure 22). The relations of dominance are as follows: 
Column 3 dominate column 4 ===> eliminate column 3 


Row 3 dominate row 4 ===> eliminate row 4 


1 Rectangular game whose matnx has no saddle point, that is, Red could determine optimal 
way with probabilities P, P,...,P, for each column of matnx, and Blue could determine optimal 
way with probabilities P, P,..., P, for each row of matrix. For more explanation in detail, refer (Ref. 
Earp. 21). 


By) 


Row 3 dominate row 5 ===> eliminate row 5 


Row 7 dominate row 8 ===> eliminate row 8 
By Theorem 2, the reduced matrix suffices to find numbers x, x3, x4; Viv ov Jaen 
and vy which satisfy the following conditions: 

Be ae = 

Vea > ee ee 

Q=<x, ys ! i= 1,24 and j=12. 67 

759.6x, + 802.3x, + 828.5x, < + 

795.2x, + 751.7x, + 783.0x, < v 

786.9x, + 795.4x,+ 817.14, < ¥ 

$13.9x, + 639.9x, + 630.5x, S 4 

SOS: ON fo de Pe lee 

159-01, + 795.2554 186-91, 42-0 13297, 40 0S net 

802.35, + 751.75, + 795.44, + 639.9), + 737.445- 2 

$28.5y, + 783.01, + 817.11; + 630.51, + 722.1), > v 


From Theorem I, we Know that there exists a solution to the svstem. These conditions 
were solved by using Linear, INteractive, Discrete Optimizer (LINDO) (Ref. 1O}iiimem 
utilizes a Linear Program to find the optimum solution (see Figure 23 for the equations 
and results). In this solution. the objective equation is set to find a maximum value of 
v. If the objective equation is set to find a minimum value of v, the result will be the 
same. Note, that if there is a negative element in the matrix of Mixed Strategy, the 
Linear Program method can not be used. 

Based on the solution in Figure 23, an optimal way for Red to play this 
game 1s to choose options 1, 2, and 4 with respective probabilities 0, 0.78, and 0.22; and 
an optimal way for Blue to play is to choose options 1, 2, 3, 6, and 7 with respective 
probabilities 0, 0, 0.89, 0. and 0.11. The value of the game is 788.8; 1.e., Red can plav in 
such a way as to make sure of not losing more than 788.8 Red casualties, and Blue can 


play in such a way as to make certain that Red will lose at least 788.8. 
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Figure 22. Initial matrix and reduced matrix for NIOE-1 


b. NMOE-2 (Blue survivors ) 

A similar method as the MOE-1 case was used for MOE-2. After elimi- 
nating the redundant rows and columns by relations of dominance, the following 2 by 
2 Mixed Strategy matrix is left. 

Blue Red 3 4 
7 SIO ey 
8 300.4 308.0 


This implies that the Red favors its option 3 and 4, and the Blue favors its option 7 and 
8. Since a 2 by 2 matrix is simple to solve, familiar methods of elementary algebra were 
used. An optimal startegy for Red is ||0.89, 0.11], an optimal strategy for Blue is |{0.12, 
0.88||; and the value of the game is 301.2 Blue survivors. So, not more than two Blue 
companies (340 infantry men) may survive during the battle. 
c. NIOE-3 and MOE-4 

MOE-3 and MOE-4 do not have a mixed strategy, but have a unique 
Strategy which can be easily found by inspection. For MOE-3 (duration of battle), the 
Red option-I is dominated by its option 2,3, and 4 so that the Red will choose its 


option-!. Thus, an optimal strategy is that Red choose its option-1 with probability 1 
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Figure 23. Solution for Value of the Game (NMNIOE-1) 


and Blue choose its option-6 with probability 1. The value of the game is 224 minutes 
which means that the Blue forces can hold their positions at least 3 hours and 44 min- 
utes. From a tactical viewpoint, the Blue forces have to be reinforced before 224 minutes 
of battle time if Blue does not want to lose their positions. 

For MOE-4 (ratio of Red and Blue casualties), the Red option-4 is domi- 
nated by its option 1, 2, and 3 so that the Red will choose its option-4 to minimize the 


RedBlue casualty ratio. Thus, an optimal strategy is that Red choose its option-4 with 


probability 1 and Blue choose its option-4 with probability 1. The value of the game 1s 
2.82 Red casualties per Blue casualty which means that one Blue force unit can kill 2.82 


Red units in the battle. 


F. USE OF UTILITY VS GAME THEORY FOR THE ANALYST 

The choice of technique depends on how the analyst desires to view the enemy force. 
For the Utility approach, the states of nature , with appropniate probabilities, would be 
assigned by the analyst. If intelligence reports are available, these could be used to de- 
termine the most likely Red option (i.e., unit mix on various avenues). 

For Game theory, we are assuming that both Red and Blue forces are using the 
same pavoff matrix, and that Red and Blue are making strategy decisions according to 
the max(min) and min(max) criteria, respectively. In the analyses, Red is being treated 
as an intelligent plaver as opposed to states of nature. Results from this analvsis can be 


used to determine the frequency with which Red will choose his various options. 
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IV. SENSITIVITY ANALYSIS 


A. GENERAL 

The previous chapters have considered, using the deterministic model and its output, 
analvsis based on a given scenario. In all cases, the analvsis was based on a fixed force 
size and a given set of Weapon parameters. This chapter examines the numerical sensi- 
tivity of the methodologies and the effect on the model output interpretation as it per- 
tains to Red and Blue options. The Analvsis of Variance (ANOVA) and Two Sample 
t-Test are applied to support the sensitivity analysis. Some introductory analvtical 
techniques to evaluate countermeasures are also covered, and an example of model 
enrichment is considered. 

The deternunistic model developed in this thesis has used many parameters which 
may possibly be changed based on real battle situations. For example. attrition rate 
coefficients mav be affected if Red uses “Smoke” while they attack, since smoke will re- 
strict the firepower of opposing forces. This would also occur in the night battle case. 
If Red uses a “Mine-plow” when it traverses the nunefield, attrition rate coefficients for 
mines should also be decreased. From the Blue force's viewpoint, installing more mines 
in the minefield or increasing the amount of indirect fire may be used as countermeasures 
against the Red force. These kev parameters are varied in turn to determine their effects 
On Outputs of the model. Those parameters which are shown to have little or no effect 
on the results mav be treated as constants and the model simplified accordingly. Those 
showing large sensitivity should be examined in detail, since these will affect model per- 


formance to the greatest degree. 


B. FORCE SIZE 

The force size is one of the major factor to affect the battle output. In this section, 
the Blue forces are considered to be reinforced by one additional platoon (40 
infantrymen). Two methods of reinforcement are compared with the basic battle case 
which has no reinforcement, and the basic battle also has Blue option-2 and Red 
opuon-2 (refered to as O,, of Table 2 in Chapter 2). These battle cases’ results have been 
discussed in detail in Figure 12-15 in Chapter 3 as an example of the basic model output. 

Figure 24 shows Red and Blue force sizes over time when the Blue ambush point is 


reinforced with one more platoon. Compared with Figure 12 in Chapter 3, the rate of 


RED FORCE SIZE ON EACH AVENUE 


AVENUE-21 


TIME (MINUTE) 





Figure 24. Red and Blue force sizes over time when the Blue ambush point is rein- 


forced. 


decreasing Red forces is very steep at the ambush battle region (for battle time 55-90 
minutes). Since the Red force on Avenue-22 is reinforced during the ambush battle 
(about time 70), this implies that the Red force size on Avenue-22 is reduced to the same 
as that of the Blue force based on the model assumption (the unit reinforcement 1s sup- 
posed to occur if the Red forces are less than the Blue forces). The shape of the Blue 
force size curve looks similar compared with Figure 12 in Chapter 3 except that the slope 
of the curve during the ambush battle region is somewhat steeper than those in Figure 
re. 

Figure 25 provides significant information if the Blue commander wants to know the 
difference depending on whether he reinforces a given platoon at the ambush point or 
at the main forces areas on node 27 and 28. The Red casualties (MOE-1) are the highest 
when the ambush point ts reinforced while there is no large difference with respect to the 


Blue survivors (MOE-2) between the two reinforcement methods (RI and R2 in Figure 
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RO: NO REINFORCEMENT 
Ri: REINFORCEMENT TO MAIN FORCES(NODE 27 AND 28) 
R2:; REINFORCEMENT TO AMBUSH POINT 


R2 





Figure 25. Comparison of NIOEs when the Blue forces are reinforced. 


25). The Red to Blue casualtiv ratio (MOE-4) linearly increases from the RO to R2 case 
in Figure 25. Based on Figure 25, reinforcing a platoon at the ambush point appears to 
be a better course of action for the Blue commander. However, the following conditions 
should be considered before the final decision of whether a Blue platoon is reinforced 
at the main forces areas or ambush point. 


e Availability of well-fortified battle space for one more platoon to fight at the am- 
bush point. 


e Probability of being detected by Red when Blue ambush force size is increased (1.e., 
the more forces there are, the easier thes are to be detecred): 


C. ATTRITION RATE COEFFICIENTS 
1. Sensitivity for attrition rate coefficients. 

The attrition rate coefficients are another important factor in the deterministic 
model. The maximum attrition rate coefficients, which are given by equations (2.13) and 
(2.14) in Chapter 2, can be varied. The “a,” in equation (2.13) is the maximum rate at 
which Red forces are attrited by Blue, or the number of Red forces lost per unit of time. 
The “5,” in equation (2.14) is the maximum rate at which Blue forces are attrited by Red, 


or the number of Blue forces lost per unit of time. 
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Figure 26. Change of MOE values based on different maximum attrition rate coef- 


ficients, a and 5, 
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Figure 27. Ratio of change for MOE values based on different a, and 5, 
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Figure 26 1s created with the MOE outputs of the basic model, which were dis- 
cussed in a previous section, When both maximum attrition rate coefficients (a, and b,) 
are changed to between 80% and 120% of original values in the basic model. Red cas- 
ualtuies (MOE-!) increase linearly while Blue survivors (MOE-2) decrease linearly as a, 
and 6, increase. 

Figure 27 1s the plotted ratio of MOE values with decreased or increased attriton 
rate coefficients to the basic model's MOE outputs with no changes of attrition rate 
coefficients. In this figure, unlike Figure 26, attrition rate coefficients (a, and 6,) are al- 
tered between 50% and 150% of original values. Figure 27 shows that the ratio of 
change for Red casualties (MOE-1) increases with a weak concave downward shape 
curve, Which means that the rate of change for MOE-1 slightly decreases as the attrition 
rate coefficients get larger. The figure also depicts that the ratio of change for MOE-2 
and MOE-4 decreases with a concave upward shape, which implies that the rates of 
change for Blue survivors (MOE-2) and Red to Blue casualty ratio (MOE-4) decrease 
as the attrition rate coefficients increases. In other words, as a, and b, increase, fire- 
power effectiveness (or loss rate exchange) of the Blue force will be gradually reduced. 

At this time. onlv one of the maxmum attrition rate coefficients, either a, or dp, 
is changed and compared. The differences are given in Table 5. The numerical values 
in parentheses represent the percentage of MfOE value change when compared with 


those of the basic case (no changes of attrition rate coefficients) 


Table 5. SENSITIVITIES OF MOES FOR ATTRITION RATE COEFFI- 
CIENTS. 


a a  E 
RT EOe 307.6 (100°) 0 ugn 
762.6 (01.5%) 
289.2 ( (94.0%) 307.6 (100%) 326.4 (106.1%) 








Based on Table 5, when the constant rate at which Red forces are attrited by 
Blue forces (a,) decreases by 10%, MOE-1 decreases 5.2% and MOE-2 decreases 1.7% 
When 4@, increases 10%, MOE-1 increases 5.2% and MOE-2 increases 1.8%. For the 


constant rate at which Blue forces are attrited bv Red forces (6,), when 4) increases by 


4§ 


10°o, MOE-1 decreases 1.4% and MOE-2 decreases 6.0%, and when 6, decreases 10%, 
MOE-1 increases 1.5% and MOE-2 increases 6.1%. Ifthe same amount of effort or cost 
are required to either increase a, by 10% or decrease b, bv 10° for the Blue force, in- 
creasing a, is more efficient for improving Red casualties (MOE-1) than decreasing 4). 
On the contrary, decreasing 6b, is more efficient for improving Blue survivors (MOE-2) 


than increasing a). 


2. ANalysis Of VAriance (ANOVA). 

In this section, an analvsis tool known as the analysis of variance, abbreviated 
ANOVA, is considered. The use of ANOVA requires some basic assumptions, such as; 
the observations that are obtained are independent and normally distributed; all the 
observations have the same variance; and the mean of each observation can be repres- 
ented as a linear combination of certain unknown parameters. [Ref. 11: p. 644]. The 
One-wav Lavout (One-way ANOVA) will be discussed here. 

It is assumed that the output of each Basic model run (a cell of the output ma- 
trix produced bv the Advanced model in Chapter 2) 1s an independent battle result, and 
eight observations (based on 8 Blue options) on each column (based on each Red op- 
tion) have the same Variances. With these assumptions, the actual output of the Ad- 
vanced model is fitted to the normal distribution. Figure 28 and 29 show how Red 
casualties (MOE-1) and Blue survivors (MOE-2) fit the normal distribution. In each 
figure, all four graphs (histogram and normal density function, normal cumulative dis- 
tribution function, normal probability plot, and normal likelihood surface) verify that 
these observations are normally distributed. [Note: all 32 observations are within the 
95% K-S bound? on normal probability plot (the third graph in Figures 28 and 29)). 
It is also verified that Red to Blue casualty ratio (MOE-4) fits the normal distribution 
by using the same methods for MOE-1 and MOE-2. 

To applv an AVOVA test, the maximum attrition rate coefficients, a, and 4, are 
multiphed by 1.1, respectively (1.e., both maximum attrition rate coefficients are in- 
creased by 10%). The problem is to compare the mean values of each MOE output for 
the different Red options between the two battle cases; original outputs of the Advanced 
model without any changes, and when both a, and 6, are multiplied by 1.1. Each Red 
option has eight independent MOE outputs based on eight different Blue options. The 
results for both battle cases are given in Figure 30. 


2 Kolmogorov-Smirnoyv bound |Ref. 11 : p. 552]. 
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Figure 28. Fitting the Red casualties (NIOE-1) of the Advanced model output to 
Normal Distribution. 


In Figure 30, ROW represents the eight different Blue options, columns | 
through 12 (C1-C12) represent the original Advanced model outputs without any mod- 
fications, and columns 21 through 32 (C21-C32) represent modified Advanced model 
Outputs with increased maximum attrition rate coefficients. Also, Cl and C21 represent 
Red option-1, C2 and C22 for Red option-2, C3 and C23 for Red option-3, C4 and C24 
for Red option-4, etc. The MINITAB computer software [Ref. 12] was used to compute 
the value of F-Ratio for the One-Way AVOVA test. The following example shows the 
MINITAB output for the One-Way ANOVA test. The example compares the mean 


difference between Cl aind C21. 
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Figure 29. Fitting the Blue survivors (MOE-2) of the Advanced model output to 


Normal Distribution. 
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A. RED CASUALTIES (MOE-1) 
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B. BLUE SURVIVORS (MOE-2) 


ROW C5 C6 C7 C8 C25 C26 C27 C28 

1349.9 276-.1 21979 e230 341.5 263,55 206. 932i 
2 Sei 50726622000 266.20 311.4 29456207 lee 
3 321.7 278.4 2515 69230.4 312.1 263.8 2265527 ee 
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B. RED TO BLUE CASUALTIES (MOE-4) 
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Figure 30. MOE outputs for both battle cases; original battle, and both a, and 


increased by 10 percent. 


<_ EXAMPLE > 


ANOVA-ONEWAY on Cl C21 


ANALYSIS OF VARIANCE 


SOURCE DF 
FACTOR i! 
ERROR 14 
TOTAL 1) 
LEVEL N 
Cl 8 
C21 8 


POOLED STDEV = 


SS 
1267 
6256 
Siias 


MEAN 
784.07 
SOR 87 


21.14 


MS Ia 
ZO? 2. 84 
447 


INDIVIDUAL 95 PCT CI'S FOR MEAN 
BASED ON POOLED STDEV 


STDEV  cetereree--- +--------- t--------- a 
18.94 (erccccee-- Ween eee eee ) 
2k 3 (----------- eee ss == ) 
--}--------- poon------ $--------- +---- 
070 784 798 812 


The example compares column | and column 2] (Cl and C21), which are Red 
casualties (NfOE-1) of Red option-! for both battle cases. The value of F-Ratio 2.84, in 


this example. is compared with the table value for the F,,, (F-Distribution with degrees 


of freedom | and 14). If the significant level, o, is 0.05, the table value for /,,, 1s 4.60. 


Consequently, because the value of F-Ratio is less than the table value for F,,, ( 
2.84 < 4.60), the difference for mean of Red casualties (MOE-1) on Red option-! be- 
tween above two battle cases is not significant at the 0.05 significance level. 

All results for the One-Way ANOVA test between C1-C1l2 and C21-C32 are 


given in Table 6. Like the example. no results are significant with a significance level 


of 0.05. This imphes that increasing both a, and b, by 10% do not make any differences 


at 0.05 significance level for all possible battle cases in this given scenario. 
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Table 6. RESULTS OF ONE-WAY ANOVA TEST WHEN THE MAXIMUM 
ATTRITION RATE COEFFICIENTS ARE CHANGED. 


[Red option? | 06s | 407d 
[Red options | 003 ~~ ios «dS 
[Red option-a | 035 «Yio —«dSC*~—tTO 














D. WEISS PARAMETER 

In Chapter 2, the Weiss parameter was discussed by showing how the attacker's (or 
defender’s) casualty rate per time changes by attacker to defender force ratio (see Figures 
5 and 6 in Chapter 2). At that time, 1t was also shown how the attacker's (or defender’s) 
casualty rate per time changes different when w (Weiss parameter) is changed from 0 to 
1.0. In this section, two approaches for sensitivity analvsis of w will be applied. 

First, only w, (Weiss parameter Blue cngaging Red) varies from 1.0 to 0.6, which 
imphes that the tvpe of fire for the Blue force changes to area-fire from aimed-fire. 
Figure 31 shows that both Red casualties (MOE-1) and Blue survivors (MOE-2) increase 
as uy, decreases. In other words, fractional casualties per unit time for Red (attacker) 
increase as wy, decreases, and fractional casualties per unit time for Blue (defender) in- 
crease as wu, decreases. This fact can be verified from Figures 5 and 6 in Chapter 2. 
[NOTE : Red to Blue force size ratio (A, D = Red Blue) is between 2.92 and 2.66 1n Fig- 
ure 32 while w, varies from 1.0 to 0.6, and fractional casualties per unit time for each w 
(when w=0, 1/4, 1.2, and 1.0) consistently varies between 2.92 and 2.66 in Figures 5 and 
6 in Chapter 2]. Figure 31 also depicts that the increasing rate of MOE-I 1s greater than 
that of MOE-2. In other words, Red casualties are more sensitive to the parameter, wy. 
Figure 32 is compared for Red to Blue casualty ratio and Red to Blue force ratio. Red 
to Blue casualty ratio increases as w, varies from 1.0 to 0.6, while Red to Blue force ratio 
decreases as w, varies. This is a reasonable tendency in theoretical battle situations. 

Second, outcomes are analyzed as if the w, (Weiss parameter Blue engaging Red) 
and w, (Weiss parameter Red engaging Blue) approach the same value. In other words, 
the type of fire for the Blue force turns to area-fire from aimed-fire, and type of fire for 


the Red force turns to aimed-fire from area-fire. Figure 33 shows that Red casualties 


54 


W : WEISS PARAMETER BLUE ENGAGES TO RED 
LEFT BAR ; RED CASUALTIES (MOE-1) 
RIGHT BAR : BLUE SURVIVORS (MOE-~2) 


W=1.0 W=0.S W=0.8 W=0.7 W=0.5 





Figure 31. Change of Basic model output (MOE-1 and MOE-2) based on Weiss 


parameter for Blue engaging Red. 
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Figure 32. Change of Basic model output (Red to Blue casualty ratio and force ratio) 


based on Weiss parameter for Blue engaging Red. 
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Fiecure 33. Change of the Basic model output (NIOQE-1 and MOE-2) when Weiss 


parameters for both Red and Blue approach the same value. 













W3 : WEISS PARAMETER BLUE ENGAGES TO RED 
WR: WEISS PARAMETER RED ENGAGES TO BLUE 
LEFT BAR : RED TO BLUE CASUALTY RATIO 
RIGHT BAR : RED TO BLUE FORCE RATIO 
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Figure 34. Change of Red/Blue casualty and force ratio in Basic model when Weiss 


parameters for both Red and Blue approach the same value. 


(MOE-1) increase linearly as w, and w, get closer in value, while Blue survivors (MOE-2) 
decrease linearly. Figure 34 depicts the differences between Red to Blue casualty ratio 
and force ratio. The Red to Blue casualty ratio decreases as uw, and w, get closer to each 
Other, while Red to Blue force ratio increases. Note that Red to Blue casualty and force 
ratio are almost equal when 1, is 0.8 and w, is 0.7, and the Red to Blue force ratio be- 
comes greater than the casualty ratio thereafter. 

Finally, the One-Way ANOVA test is also applied in the sensitivity analysis of the 
first case above. The test compares the original basic model output and the output when 
Weiss parameter for Blue engaging Red 1s changed to 0.9 from 1.0. All value of F-Ratio 
results for the test are given in Table 7. 


Table 7. RESULTS OF ONE-WAY ANOVA TEST WHEN THE WEISS PA- 
RAMETER BLUE ENGAGING RED ARE CHANGED. 


WOE MOF-2 WOR 
SEs 


Red options’ 0.68 
Red option x 





Since the compared values (NIOE-1, NIOE-2, and MOE-4) and the number of observa- 
tions are same as those shown in the previous section (see Figure 30). F,,, (F- 
Distribution with degree of freedom 1 and 14) is utilized. If the significant level. o , 1s 
0.05, the table value for F,,, 1s 4.60. There exist two values which are larger than 4.60 
in Table 7 (4.79 and 5.60), which are MOE-1 in Red option-1 and MOE-4 in Red 
option-2. This imphes that the mean number of Red casualties of eight Blue options 
(1.e., eight observations) with Red option-1 changes significantly if w, (Weiss parameter 
Blue engaging Red) decreases from 1.0 to 0.9. The same result occurs for the mean of 
Red to Blue casualty ratio of eight Blue options with Red option-2. 

To confirm these results, Zwo Sample t-Test3 was applied for both cases. The t-Test 
can be employed because it was assumed and verified that comparing two 8 observations 
have same variances and each observation (each battle output : MOE values) is a ran- 


dom sample from a normal distribution as explained in the previous section. The above 


3 Page 506. Mors H. DeGroot, Probability and Statistics (Second Edition) , by Addison- 
Wesley Publishing Company, Inc. 1986. 
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two significant cases are tested as examples. The following examples show the results 
of the two sample t-test with null hypothesis and alternative hypothesis in case of the 


two-tail test. 


Example (Case 1) 

Let X be the mean number of Red casualties of eight Blue options with Red 
opuon-! in original Basic model output. 

Let } be the mean number of Red casualties of eight Blue options with Red 


option-! after changing w, to 0.9 from 1.0. 


Test the following hypothesis with a significant level a =0.05. 


<I 


0 


eel 


2 
ee 


Se 
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Let S} and S;. be the sums of squares as follows: 


nm n 
) ‘ rps ei, Z walk 
Sy = Vui-Xp > Yi Y,) (4.1) 
i= i= 
Also let the statistic U be defined bv the following relation: 
| he are 
(mr t+n—2)' CV, — ¥,) 
oe —— (4.2) 
bid cqoae ae 
amie) are 


Since the alternative hypothesis is two-sided, the test procedure would reject //, if either 
U<c, or U>c, , where the constants c, and c, are chosen so that when H, 1s true; 
PH <0.) ae ere ac.) to, 


In this example, the sample sizes are m=8 and n= 8, and the value of the statistic U 
defined by equation (4.2) is 2.18. Also, by use of a table of the t distribution with 14 
degrees of freedom (m+n-2), c, and c, are -2.145 and 2.145, respectively. Since the value 
of the statistic U is greater than 2.145 (U > c,), the null hypothesis is rejected forme 


given specified Jevel of significance, o = 0.05. 


Example (Case 2) 

Let Y be the mean Red to Blue casualty ratio of eight Blue options with Red 
option-2 in original Basic model output. 

Let Y be the mean Red to Blue casualty ratio of eight Blue options with Red 


option-2 after changing w, to 0.9 from 1.0. 


In this example, the sample sizes are m=8 and n=§8, and the value of the statistic U 
defined by equation (4.2) is 2.37. Also, as in the previous example, since the value of the 
M@atistice) 1s greater than 2.145 (U > c,), the null hypothesis is rejected for the given 
specified level of significance, a= 0.05. 

These examples verify the results from the One-Way ANOVA test which is shown 
in Table 8. Recall, from Table 8, there were only two significant cases (4.79 and 5.60) 
which were greater than 4.60 (table value for F-distribution with degree of freedom | and 
14). 


E. COUNTERMEASURES 

The practicing weapon svstems analvst must be Well aquainted with the more gen- 
eral principles of countermeasures. for his task is often that of evaluating the potential 
of proposed countermeasures. Also. countermeasures are often likely to improve 
survivability, especially for defenders. Indeed. the battle is often based on “see-sawing” 
advantages. While it 1s usuallv impossible to anticipate enemy reactions to an initiative. 
there is a rather satisfactory or useful mode of approach to this problem. The tank was 
the countermeasure to the machinegun. while antitank mines and shaped charge war- 
heads are countermeasures to the tank threat. 

In this model, two Blue courses of action are considered against two Red courses 
of action. It 1s assumed that the Blue force can increase indirect fire by expanding the 
firing time of the Blue artillery weapons and can also increase mine density in a given 
minefield, while the Red force may use a mine-plow to break through a Blue minefield 
and may also use smoke for restricting the firepower of the Blue force’s direct fire. It is 
also assumed that Red smoke does not affect its own direct fire. 

The quantitative amounts of effects for the different parameters, depending on 


which course of action is emploved, are defined as follows: 


e Ifthe Red forces use mine-plows : decrease by 70% the attrition rate coefficient for 
nunefields. 


e Ifthe Red forces use smoke : decrease by 10% the attrition rate coefficient to Red 
force from Blue force. 


e If the Blue forces increase indirect fire: expand firing time of Blue artillery to 20 
minutes from 10 minutes. 


¢ Ifthe Blue forces increase mine density : increase the number of mines in a given 
minefield by 100%%. 


Table § provides pavoff matrices for Red and Blue courses of action, which shows 
both Red casualties and Blue survivors (MOE-I and MOE-2). Based on Table 8, if the 
Blue force can use only one of two courses of action, increasing its indirect fire is better 
than increasing mine density (MIOE-1 : 722.8> 703.1. MOE-? : 305.9> 303.1) whtemeuee 
Red forces use the mine-plows. Recall that the larger MOE values are better gma 
Blue force. However, when the Red forces use smoke. increasing mine density is better 
for Blue than increasing indirect fire for the Blue force (MOE-1 : 822.6> 774.4, MOE-2 
; 316.4> 313.1). From the above facts. the Blue commander can perceive that the 
number of mines im a minefield do not have much effect on Red’s mine-plows. so that 
Blue may need another course of action to attrite Red mine-plows. Table § also shows 
that if Red and Blue forces employ all their available courses of action. the Red force 
will have larger advantages than the Blue force (see Table 8. MOE-1 : 7/)S)S = 7a 
MOE-2: 3035.0 < 307.6). 

Figures 35 and 36 depict how Red casualties (MOE-1) and Blue survivors (MOE-32) 
change based on each course of action. For example, in Figure 35, there is a small dif- 
ference in Red casualties for Blue courses of action 2 and 3 (B2 and B3) if the Redon 
selects its course of action 3 or 4(R3 or R4). These two figures also show a quantitative 
difference of MOE values for each course of action, so the reader can easily tell the dif- 
ferences by the height of each pillar. 

Figures 37 and 38 show how Red to Blue casualtv ratio and force ratio change based 
on Red and Blue’s respective course of action. From these figures, the reader can see 
the trend of the change of Red to Blue casualty ratio and force ratio for each Red and 
Blue courses of action. Figure 38 has almost the reverse shape of that of Figure 37, 
which implies that the Red to Blue casualty ratio and the Red to Blue force ratio have 


negauve correlation. 
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Table 8. PAYOFF MATRIX FOR RED AND BLUE COURSE OF ACTIONS 
(MOE-1/MOE-2). 




















REP oree 


Indirect | Mi , : 
Bere | Genciy 683.5/300.7] 722.8'305.9| 774.4 313.1] 813.7 318.8 
} do not 655.9 298.3] 705.1'303.1] 822.6'316.4] 862.0'322.2 


increase 
631.6, 296.3] 670.2'300.4] 712.4/302.4] 751.7, 307.6 
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In Figures 35 and 36, the following abbreviations apply: 





Courses of action 



























increase 
Mine 
density 


Rl = Red force uses both Mine-plow and Smoke. 
R2 


R3 = Red force uses only Smoke. 


Red force uses only Mine-plow. 


R4 = Red force does NOT use either Mine-plow or Smoke. 


Bl = Blue force increases both Indirect-fire and Mine density. 
B2 = Blue force increases only Indirect-fire. 
B3 = Blue force increases onlv Mine density. 


B4 = Blue force does NOT increase either Indirect-fire or Mine density. 


In Figures 37 and 38, the following abbreviations apply: 
1 on Red courses of action = RI in Figures 35 and 36 
2 on Red courses of action = R2 in Figures 35 and 36 
3 on Red courses of action = R3 in Figures 35 and 36 


4 on Red courses of action = R4 in Figures 35 and 36 


1 on Blue courses of action = Bl in Figures 35 and 36 


2 on Blue courses of action = B2 in Figures 35 and 36 
B3 in Figures 35 and 36 


4 on Blue courses of action = B4 in Figures 35 and 36 


3 on Blue courses of action 
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Figure 35.  3-Dimensional view of pavoff matrix for Red casualties. 
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Figure 36. 3-Dimensional view of pavoff matrix for Blue survivors. 


RED TO BLUE CASUALTY RATIO (MOE—3) 





Figure 37. 3-Dimensional view of payoff matrix for the Red to Blue casualty ratio. 


RED TO BLUE FORCE RATIO 





Figure 38. 3-Dimensional view of payoff matrix for the Red to Blue force ratio. 
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F. MODEL ENRICHMENT 

The important question answered in this chapter is “Is this deterministic model 
performing in a reasonable fashion?” To support this question, this section will provide 
answers to the following questions, “Can a Red and Blue force size ratio affect the at- 
tacking force’s speed?” (1.e., Is it better for the Red force to move fast when the mcaums 
Blue force ratio 1s large versus when the Red to Blue force ratio is small?). If the answer 
is “ves” for this question then “How are they related ?” and “How does it affect the du- 
ration of battle (MOE-4) ?” These questions arise because the duration of battle in the 
Basic model did not vary by changing anv of the parameters during the sensitivity ana- 
Ivses in previous sections. 

In order to solve these problems, equation (2.16) in Chapter 2 was modified as given 
by equation (4.5). 


Q., ave 


S —-—)'+S., where Sin =0.3 x ( a (43) 
Cc 





new = Soig X U1 a 
where 
. : power factor, based on different weapon types 
S,. . updated speed of attacking force 
5.) Speed 0! attackin@lorce for previous mine stem 
Sian? Munimuni speed for the attacking force 
Po CUTIECI ation coelticient 
@,: Maximum attriuon coefficient 
Ri eirrent-Ked {orce size 


bP current Biuetverec mize 


In equation (4.3), it is assumed that Red to Blue force ratio affects the minimum speed 
of Red (attacker) force. In other words, the Red force’s minimum speed 1s proportional 
to the Red to Blue force ratio (S, ,ocRF./BF.). It is also assumed the Red to Blue force 
ratio 1s greater than one. The 0.3 is a constant value under the assumption that the Red 
force can maneuver at least 0.3km per hour regardless of the Red to Blue force ratio 
value. The linear function for the minimum speed is shown in left portion of Figure 39. 
The function shown in right portion of Figure 39 represents the case when the attacker's 


minimum speed is not a linear function of Red Blue force ratio. In this chapter, the 





Figure 39. Two different functions for minimum speed. 


linear function case, given in left portion of Figure 39, 1s applied to the basic model and 
analvzed in Figures 40 and 4}. 

Figure 40 shows differences of the Red to Blue casualty ratio (MOE-3) between the 
Basic model (which has constant minimum speed) and the Enriched model (which re- 
gards the attacker’s minimum speed as a linear function of Red Blue force ratio) when 
each parameter is altered as follows: 

nO CHANGE : no parameters are changed 

4 \MD : Blue increases the Mine density. 

{ IF : Blue increases the Indirect fire. 

USE MP: Red uses Mine-plow. 

ior SM ;: Red uses Smoke. 


Figure 40 illustrates that as the mine densitv and indirect fire increase for both models 
so do Red Blue casualty ratios. When mine-plow and smoke are employed for both 
models, Red Blue casualty ratios decrease. These results are reasonable from a military 


standpoint. Even though there exist somewhat differences in increasing or decreasing 


LEFT BAR : BASIC MODEL OUTPUT 
RIGHT BAR : ENRICHED MODEL OUTPUT 


NO CHANGE t M IF USE MP USE SM 


RED/BLUE CASUALTY RATIO 
A) 


— 


Oo 


Figure 40. Comparison of RED/BLUE casualty ratio (MOE-3) between Basic and 


Enriched model. 
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Figure 41. Comparison of duration of battle (NIOQE-4) between Basic and Enriched 


model. 
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Red Blue casualty ratio between Basic and Advanced model, both models change with 
a sinular tendency based on alteration of each parameter. 

Figure 4] shows differences of duration of battle (MOE-4) between the Basic model 
and the Enriched model. As expected, battle time 1s longer when Blue increases its mine 
density or indirect fire, and battle time is shorter when Red uses its mine-plow or smoke. 
Based on the above analvsis with both Figures 40 and 41, the Enriched model appears 


to produce more reasonable results than the Basic model. 
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V. SUMMARY AND FUTURE DIRECTIONS 


A. SUMMARY 

This thesis has developed a deterministic air-land combat model using network at- 
tribute terrain data. Even though the model utilized terrain data for battalions and 
regiments, 1t mav accept terrain data for larged sized forces. The model was run under 
a given scenario of specific battle conditions using an assigned battle area in the Re- 
public of Korea. Three avenues of approach were emploved in the model for the at- 
tacking force to reach the defending force. Based on the disposition of the forces 
(personnel, nunefields, indirect fire. and so forth), the model outputs (MOEs) provide the 
military planner with information on preparing better defensive plans. 

The primary focus of the thesis was to demonstrate various methods for analvzing 
model outputs. In this respect. the mode! provided sufficient data for analvsis, which 
was performed in Chapters 3 and 4. In Chapter 4, sensitivity analysis varying specific 
parameters produced reasonable results, and also determined those parameters which 
were most volaule to change. The important results from sensitivity analyses are as 


follows: 


I. If Blue has proper conditions (discussed in Chapter 4) on ambush points. reinforc- 
ing an additional platoon at the ambush point is better than at the main force 
areas. 


2. As both maximum attrition rate coefficients (a, and 5, ) increase, firepower elle. 
tiveness (or loss rate exchunge) of Blue force is gradually reduced. 


Lod 
» 


Both Red casualties and Blue survivors increase as w, (Weiss parameter for Blue 
engaging Red) decrease, but Red casualties are more sensitive to 1, than Blue sur- 
VIVOFS. 


4. When Weiss parameters for both Red and Blue approach the same value, both Red 
and Blue casualties decrease and the Red: Blue casualty ratio also decreases, which 
implies that firepower effectiveness of Red force increases. 


5. The number of mines in Blue minefields do not have much effect on Red’s mine- 
plows. 


6. If Red uses smoke, increasing the number of mines in Blue minefields is better than 
increasing Blue indirect fire. 


In addition to the above results, the model pointed out that Blue needs to consider new 


courses of action for attrition to Red on Avenue-22 in the BATTLEI1 case which was 
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discussed in section C of Chapter 3. The model was enriched by using a modified 


equation for computing the attacking units’ speed. 


B. FUTURE DIRECTIONS 

The deterministic model developed in this thesis is neither a complete nor perfect 
model. The author focused his efforts on analvzing the model outputs with various 
methodologies. Additional research 1s needed for improving the model. Other analytical 
methodologies, not covered in this thesis, should be explored. A limitation of this 
deterministic model is how to specify and determine more realistic attrition rate coefhi- 
cient for each weapon system, to be used in Lanchester’s Linear and Square law. 
However, simulation methods mav be a possible approach to find more accurate attni- 
tion rate coefficients for weapon systems. 

There are numerous factors which affect a battahon or regimental size battle. 
Therefore, the model developed in this thesis can be expanded by adding more combat 
tvpes such as Close Air Support (CAS) and other newly developed weapon svstems. The 
inclusion of these factors makes the model more complicated. vet allows for more real- 
istic outputs. As for one way of dealing with new weapon svstems, different value of yu 
(power factor based on different weapon types in Figure 7 of Chapter 2) could be used. 

If the battle area has many terrain features (such as small hills, streams, bridges. 
reseviors, and so forth) in small battle areas, some attrition rate coefficients mav need 
to be changed. In order to deal with these factors, different analvtical approaches are 
required. Simulations mav help to obtain data outputs for comparison to real world 
data. Verification and evaluation with historical data is necessary before this model 1s 
used to test actual combat plans or scenarios. 

It is recommanded that the deterministic nature of the model be retained. as op- 
posed to applving stochastic processes, because the purpose of this model is to generate 
battle outcomes traceable to specific input parameters. In other words, it 1s not sug- 
gested that stochastic variables be treated bv a Monte Carlo process. Rather, the pa- 
rameters are varied for different runs to maintain audit trail control for the purposes of 
analysis. 

Finally, because only dismounted units (infantry forces) were considered in this 
model as an initial run, mounted units (vehicles such as tanks, APCs, and trucks) also 
should be considered for future runs. This requires some modifications to the model to 


incorporate different parameters based on vehicle tvpes. 
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APPENDIX A. MODELS INPUT DATA 


This 1s a formauon of the input data for both models (Basic and Advanced) for 


dismounted (Infantrv) unit cases. 


Ww Ul 
iu 


Arc Nodes Passing Distance Speed 
No. (tail-head) time(min) Width 
1 1 2 3125 1 006 
2 1 6 Se 5 3516 
5 2 3 Ou 1 506 
4 2 4, Nos oie) 15 358 5 
5 3. 9 Gi525 US 011 
6 4 3 3202 9 254 5 
7 4 11 2o67 1.) 558 5 
§ 5 7 40.29 35 004 5 
9 5 11 €é0.0 112 
10 6 7 2lRa3 IS 554 5 
al 6 § oi eS: 1 106 
12 7 il reer 5 004 5 
i> & 13 333875 5 006 
1+ 9 10 2520 5 002 
is 7 Ue, D0 026 
15 10 se 65.0 5 002 
7 10 15 yee yee, 5 002 
18 C06 10750 5 002 
19 al 1s 1.07 098 5 
2 el 15 34, 22 054 5 
ae i ibs) oe 5 15s S 
Z? a2 ls 27.43 5 
£ 
a 
as: 
10 


Onryonwoowow fFrx vu qr ao fF VW) ~'lo DH ty to 
a un Ue 


oA ie 24 1200 354 > 
52 18 Za 10.5 256 

oe) 19 20 oe ee 049 5 
34 20 Jat LN >) 45 LAG 

35 20 28 ies ~) 506 

36 ps 22 18. 86 ] 224 5 
37 Ze 25 9.43 oy 704 5 
38 22 27 ure) 7 454 .) 
39 23 27 So) 65 678 5 
40 24 25 Cay 5 574 5 
41 24 26 1250 75 274 5 
42 25 26 8.0 6 B26 ) 
4,3 26 24 Sen0) 6 408 5 
44 z 28 35.75 Zo 066 


APPENDIX B. BASIC MODEL 


This is a computer program using Fortran-77 for the basic model. 


C 
C ---< BASIC MODEL >--- MADE BY LEE, JAE YEONG (1988.2.6) --- 
C 
INTEGER NA, NN, NOA, NOP, RBN, RRESER, BCO, PLIN 
PARAMETER (NA=44, NN=28, NOA=3, NOP=2, PLTN=40) 
PARAMETER (RBN=500, RRESER=150, BCO=170) 
INTEGER REDAVE(NOA),SMAVE(NOA) , PMAVE(NOA) 
INTEGER ARC(NA),TAIL(NA) ,HEAD(NA) , TAVE(NOA) 
INTEGER PMARC(5),SMARC(3),IDARC(4,0: 1001) 
INTEGER IFA(4,1000) ,MFA(4,1000) ,DFA(4, 1000) 
INTEGER  POIF,BLUEP1,BLUEP2,ANS1,ANS2,ANS3,ANS4 
INTEGER INPUT , OUTPUT, TP1,TP2,DIF,DPMF , DSMF , INCRE ,WID 
INTEGER IFANS , MFANS , DFANS , TEND 


REAL DIST(NA) ,WIDTH(NA) , TIME(NA) 

REAL SPEED(NA) ,OSPEED(NA) , ADSP(NA) 

REAL BREAKP(4) , BREAKT(4) 

REAL RF(4,0: 1001) ,BF(4,0: 1001) ,WHERE(4,0: 1001),SP(4,0: 1001) 
REAL IFC(4,0: 1001) ,MFC(4,0: 1001) ,RDFC(4,0: 1001), 
1 IMDC(4,0: 1001) ,BDFC(4,0: 1001) 

REAL RBP(4),IFSUM(4) ,MFSUM(4) ,RDFSUM(4) , BDFSUM(4) 
REAL IFCAS ,MFCAS , DFCAS , BLEFT1, BLEFT2 , WHOLD 

REAL CLOCK , RANGE, BRDIST, AR, RB 

DATA DIF,DPMF,DSMF /10,20,15/ 

DATA  PMAVE i Seay) 

DATA PMARC SS 23-25, 32/ 

DATA RANGE Tay 

DATA RB OnG/ 

DATA  REDAVE EG Dass) 

DATA POIF Jon 

DATA  SMAVE EO iy 

DATA  BLUEP1,BLUEP2 /1,2/ 

INPUT = 12 

OUTPUT = 13 


C---OPEN OUTPUT FILES ! 
C---FILE 'TSTEP' HAS RED AND BLUE FORCE SIZES ON EACH AVENUE 
C---FILE 'REDCAS' HAS RED CASUALTIES ON EACH AVENUE 

OPEN ( UNIT = OUTPUT, FILE = 'TSTEP' ) 

OPEN ( UNIT = 21, FILE = 'REDCAS' ) 


WRITE(6,9) 
DO 10 I = 1, NA 

READ( INPUT,11) ARC(I),TAIL(1I),HEAD(I),TIME(1),DIST(1I) ,WIDTH(I), 
1 SPEED(1) 

WRITE(6,11) ARC(I),TAIL(I),HEAD(I) ,TIME(1),DIST(1) ,WIDTH(I), 


7\ 


A: 


ik 


2s 


1 SPE EWG 
CONTINUE 


FORMAT(1X,50('-'),/2X,'ARC TAIL-HEAD TIME ise WIDTH 


i ' “SPEED? /1%3500 ao) 
FORMAT(3X,12,2(3X,12) ,2X,F6. 2,6%, P4. 24m 5 eee ee se 


CALL OPTION (NA,NOA,REDAVE, POIF ,SMAVE, BLUEPI, BLUEP2)SPERis 


1 DIST ,TIME, PMARC, SMARC , ANS] ANSZ Ano 
TE CANS ly, £Q.020) «GOs Omao 
TPGANS2 . EQ. 00): GO 2G2ce8 
IFCANSS . EQ. 0) GOete 222 


DO 19 I = 1,NA 
CALL ASPEED (I,NA,ANS1,SPEED,ADSP) 
SPEED(I) = ADSP(I) 
OSPEED(1) = SPEED(I) 


WRITE(13,25)REDAVE( 1) ,REDAVE( 2) ,REDAVE(3) , SMAVE( 1) ,SMAVE(2), 
1 SMAVE(3),SMARC(1),SMARC(2) ,SMARC(3),BLUEP1 , BLUEP2 
WRITE(6,25) REDAVE(1),REDAVE(2) ,REDAVE(3) , SMAVE( 1) , SMAVE( 2), 
1 SMAVE(3), SMARC( 1), SMARC(2) , SMARC(3) , BLUEP1 , BLUEP2 
FORMAT( //1X,'RED OPTION ===> ‘ ,313,/1X, BLUE OPTION | 

1/4X,'* SCATERABLE MINEFIELD ===>" (313, 

Loe (LOCATED ARGS) 9 ===> eee 

1/4X,'* FORCE ALLOCATION =======>' ,213,//) 


NNN = 

IUSED 

NE @a 

NEQ34 
DO5 1=1,4 

PPSUMC 1). =20.0) 

= 0.0 


tou wo 


0 
0 
0 


MFSUM(I) 

RDFSUM(I) = 0.0 

BDFSUM(I) = 0.0 
GO\ti Ue 


C==-DEFINE INITIAL FORCE, LEVEL AND=LOGARIONs 


28 


EGLO) 
RE C20) 
FEGs30) 


REDAVE( 1)**RBN 

(REDAVE(2)*RBN) /2 

(REDAVE( 2)**RBN) /2 

RF(4,0) = REDAVE(3)*RBN 

DO 28 1=1,4 
WHERE(I,0 
IFC(I,0) 
MFC(I,0) 
RDFC(1,0) 
IMDC(I,0) 
BDFC(1,0) 
RBP(I) = RB*RF(I,0) 


) = 0. 
= 0. 

= 0. 
= 0. 
= 0. 
0 


BPGI,O0) = BLUBP I BCO serie (2 
Bri2;0) = BLUEPI<=BCO Pini 2 
BF(3,0) = BLUEP2*BCO + Pian, 2 
BECG 0) == BEUEP2 BCOl Eien 2 
NOC = 0 


~) 
tu 


3 


INCRE = 1 
P@eso72 1) = 1,500, 1NCKE 


Crock = IT 
DO 30 IA = 1,4 
BREAKP(IA) = 0. 
BREAKT(IA) = 0. 
IFC(IA,IT) = IFC(IA,IT-21) 
MFC(IA,IT) = MFC(IA,IT-1) 
RDFC(IA,IT) = RDFC(IA,IT-1) 


IMDC(IA,IT) = IMDC(IA,IT-1) 
BDPC( IA,1T) = BDFCCIA,1T-1) 

PpCiseli)e= RCIA Di=1) 

BPaClA, db) = BFCIA,IT-1) 

WHOLD = WHERE(IA,IT-1) 

CALL DETECT (1A,1IT,INCRE,WHOLD,WID) 
Paw D EO 0) sCOmIOn 999 

IDARC(IA,IT) = WID 

BRUIST = 9999. 

SP(IA,IT) = SPEED(WID) 

TS = (SPEEDCWID) /60)*INCRE 

WHERE(IA,IT) = WHOLD + TS 


Meets LHERE INDIRECT FIRE ? OR MINEFIELD ? OR DIRECT FIRE ? 
CALL IDFIND (IA,CLOCK,POIF,IFANS) 
CALL MFFIND (PMARC,SMARC ,WID,MFANS ) 
CALL DRFIND (IA,WHOLD,RANGE, BRDIST,DFANS) 


IFACIA,IT) = IFANS 
MFACIA,IT) = MFANS 
DFACIA,IT) = DFANS 


PEC ANoabO. 0). AND MEANS EO) 0 2 AND. DEANS. EQ.0) GO TO 30 


Pee-COMPUTE THE CASUALTY OF INDIRECT-FIRE ! 
HEC IFANS@e2£Q: 1) DHEN 
CALLeeeiit Re CVA SIT ORY sREDAVE,POLF, IFCAS) 
FeCl saw). = RPCIA IT) < 1FCAs 
IFSUM(IA) = IFCAS + IFSUMCIA) 
PEC Gre) —SteeolAgt lh) +r lFCAS 
END IF 


C---COMPUTE THE CASUALTY BY MINE-FIELD ! 
IF(MFANS.EQ.1 .OR. MFANS.EQ. 2) THEN 
CALL MFIELD (IA,IT,MFANS, INCRE,NA,WID,TIME,RF,MFCAS) 
RF(IA,IT) = RF(IA,IT) - MFCAS 
MFSUM(IA) = MFCAS + MFSUM(IA) 
MFC(IA,IT) = MFC(IA,IT) + MFCAS 
END IF 


peeecOMPUTE THE CASUALTY BY DIRECT-FIRE ! 
IF(CDEAN See b@ssiss OR. DFANS .EQ. 2) THEN 


Pelee. Gr, BRC IA, IT) . AND. 
a JO feo) B ee OR ae . AND. 
1 Reh On Gl. 0.0 ) eee 


iD 


RFC IA, IT) = RECIA, 11) 2 Reese 


IUSED = 1 
END SEE 
CALL DRFIRE (DFANS,DFA,BRDIST,IA,IT,RF,BF,AR,RDFCAS,BDFCAS, 
i PLTN, RANGE ,NNN, ACO, AMO) 


RF(IA,IT) = RF(IA,IT) - RDFGAS 

BF(IA,1T) = BFCIA, 1) eo be na 

RDFSUM(IA) = RDFCAS + RDFSUM(IA) 

BDFSUM(IA) = BDFCAS + BDFSUM(IA) 

RDFC(IA,IT) = RDFC(IA,I=)) = Rone ts 

BDFC(IA,IT) = BDFC(IA,IT) + BDFCAS 
END IF 


IF(CRF(IA,O) .GT. 0. . AND. RFCIA,IT) - LE. RBPOTA) ee 
CALL BREAK (IA,IT,NOC,WHOLD,RF,BF,RRESER, BREAKP, BREAKT) 
END TE 


C---COMPUTE THE REDUCED SPEED DUE TO THE INDIRECT FIRE OR MINEPTERi See 
C UNDER THE DIRECT FIRE BASED ON THE RANGE OF TWO FORCES ! 


CALL RSPEED (1A,1IT,NA,SPEED, TIME, DIST WIDVRSNGEyA a 
i IFANS ,MFANS , DF ANS , OSPEED , ACO, AMO) 


SPCTAg TT) S25 Peeve) 

TS = (SPEEDCWIP) 7/60) INCRE 

WHERECIA,IT) = WHOLD + TS 

INDCC IA, IT) = IFCCIA, IT) + MFCCIAS IT) + REPeC 


30 CONTINUE 


TPCONEOQP2 NE 0) GO. 10Uo¢ 
BECL,1T) = ING BeGio lt) SEG i 
BEG2,17)-= MING Sr Ci eee as 
36 IPUNE@S4 NE. 0) 360 TO 37 
BRCS;, 11). = MING EPC, bE Goi) 
BFCS6s17T)-= MING BECs la) BG 
37 TPCNEQIZ 2NE.. (@) 377 CGOs10- oc 
IFCDFAC1,1T) .EQ. 2 ..AND.o) DPAC2 11) bop ae 
1 RFC1,1T) .GT. 0... JANDS RFC2Z 711) 261. eC 5 eda. 


BF(1,IT) = (RF(1,1T) / (RF(1,1T)+RF(2,1T))) BEG 
BF(2,IT) = (RF(2,IT) / CRF(1,1IT)+RF(2,IT))) * BFC2, IT) 
NEQ12 = IT 

END IF 


38 TPCNEQ34 NE. <0) GO710ne? 
IF(DFA(S,1T) .EQ.. 2 JAND, “DEA( 4511) 5) 2G eon 
1 RF(3,1IT) .GT. 0. . AND: RF(4,1T) {Gi 30] 


BF(3,IT) = (RF(3,IT) / (RF(3,IT)+RF(4,IT))) * BF(3, IT) 
BF(4,IT) = (RF(4,1T) / (RF(3,IT)+RF(4,1T))) * BF(4, IT) 
NEQ34 = IT 

END IF 


59 WRITECOUTPUT ,40) IT,RF(1,1T),RFC2,11) RFC 3,12) ree 
WRITECOUTPUT,40) IT,BFC1i1,0)-( BDFC(1, 11D) +BDECC2 ae 


i BFC 2,0)-CBDPC( 1, IT) SEDC C2 ian 
1 BF(3,0)-( BDFC(3, IT) =BDEC( 4a; 
1 BF(4,0)-(BDFC(3, 11 )+BDFCC4 yi) 
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40 
41 
42 


9999 


B99 


ae 
wu es 
ale 
@r 
¢ 
eveves 2S 


1002 


HO 11 


EOL 2 


WieeeeOuG PUT 62 rl werkt beid WHERE( 2,17) ,WHERE( 3,11) ,WHERE(4, IT) 
WiemceUlPUT 42) 17, SPC LIT .sP(2,1T),$PC3,1T),SP(4,1T) 


Wieeede GO) IT, I1FC(1,1T),1FC(2,1T),IFC(3,IT),1FC(4,1T) 
WRITE( 21,40) IT,MFC(1,IT),MFC(2,IT),MFC(3,IT),MFC(4, IT) 
WRITE(21,40) IT,RDFC(1,IT) ,RDFC(2,IT),RDFC(3,1IT),RDFC(4,IT) 
WRITE(21,40) IT,IMDC(1,IT),IMDC(2,IT),IMDC(3,IT), IMDC(4,IT) 
WRETEC 21,40) 11, BDFC( 1,17) ,BDFC(2,1T) ,BDFC(3,IT),BDEC(4,1T) 
FORMAT( 1X,16,4(3X,F6. 1)) 

FORMAT( 1X,16,4(3X,16)) 

FORMAT( 1X, 16,4(3X,F6. 3)) 


CONTINUE 
CALL PRINT (RBN,BCO,BLUEP1,BLUEP2,RRESER,PLIN,NA, OUTPUT, 
IFSUM, MFSUM, RDFSUM, BDFSUM) 
PRINT FOR CHECKING THE INPUT DATA 
WRITE(6,9) 


DO 998 I = 1, NA 
WE Eero)  ARCCI): TAIL(C 1), HEAD( 1), TIMEC I) ,DISTC1) ,WIDTH(I), 


SPEED(I) 
WRITE(6,'(//)') 
STOP THIS MODEL IS COMPLETE ! THANK YOU !' 
END 


es'eses'es fewes tote wou’ teste ste clos! esleclos festedlowle ston eo wJow fevestesleveveves fevlewewes fo ale Seale weate wecte veveveste 
ras . coe: DN aN Eee Cee IES 


SUBROUTINE 2 SELECTING THE er. AND BLUE, Nariel 
SUBROUTINE. OPTION rae NOA, REDAVE, POIF, SMAVE, BLUEP1, BLUEP2, ‘SPEED, 
Dist, TIME, PMARC, SMARC, ANS1, ANS2, ANS3) 


INTEGER REDAVE(NOA) , POIF ,SMAVE(NOA) , BLUEP1, BLUEP2 
INTEGER PMARC(5),SMARC(3),ANS1,ANS2,ANS3,ANS4 
REAL SPEED(NA) ,DIST(NA) , TIMECNA) 


WRITE(6, OD 
PRINT ° "HOW DO RED FORCE ALLOCATE THEIR UNIT ON EACH AVENUE ?' 


PRINT 2 (CHOOSE THE NUMBER OF OPTION 1, 2» 3 OR 4)' 

PRINT vF ; erie slestodlostectectoctectelocleslosloviostovlestevesteslosioslos slosleveslesleveslodeveveveve | 
PRINT *, ' * OPTION AVE-#1 AVE #2 “AVE-#3 ve! 
PRINT *, ' * 12 1 BN 1 BN 1 BN we 
PRINT *, ' ? Os OQ BN 2 BN 1 BN *! 
PRINT *, ' * 3, O BN 1 BN 2 BN we! 
PRINT *, ' * 4, O BN 3 BN O BN #! 
PRINT *, LSS 0. EXIT THE RPOGRAM ! a! 
PRINT * : i Die Lie Lae foe Oe Loic DRI Ae Le RR ha a kc he ied ies OF Reereseevesticiene 


READ(S, *) ANSI 
GO TO (1011, FOZ OS 1014) ANS 1 
1 


REDAVE( 1) = 
REDAVE(2) = 1 
REDAVE(3) = 1 
GO VTO.1 010 
REDAVE( 1) = 0 


iD 


Voie 


1014 


1010 


LOSd 


Io 


1033 


1034 


1025 


REDAVE(2) = 2 
REDAVE(3) = 1 
GO TO 1010 
REDAVE(1) = 0 
REDAVE(2) = 1 
REDAVE(3) = 2 
GO TO 1010 
REDAVE(1) = 0 
REDAVE(2) = 3 
REDAVE(3) = 0 
GO TO 1010 
IF(ANS1 .EQ. 0) THEN 
GO TO 1999 


ELSE 

PRINT. "<< ERROR >> : ENTER THE NUMBER 1-4 OR O ===> TRY AGAIN !' 
GO TO 1002 

END IF 

WRITE(6, Gob aM 

PRIN =, "HOW DO BLUE FORCE ALLOCATE THE SCATTERABLE MINES ?' 


PRINT - Salone The eae mak ec lceay re 2.3 noe eel 

PRINT * : : alaberigcci iri ren else rll ac ie ok es ST VESETE VE TENT TENET Sees eve veveredvedede | 
PRINT *, ' * OPTION AVE aM AVE E-#2 AVE- 43 We 
PRINT *, | * i 1 PKG 1 PKG 1 PKG * 
PRINT *, °° * sap OF PKG 2 PKG VO ERG we 
PRINT *, ' * eS QO PKG 1 PKG 2 PKG a! 
PRINT *, '  * ne O PKG 3 PKG 0 PKG we! 
PRINT *, ' * 0: alin ele RPOGRAN ! a 
PRIN? 3: : dedeveslevededevedeveve deve ds Tete deve sess deve Te Neve reteset Tete Be sede Ve Te See Fee | 


READ(S, Z) ANS? 
GO TO (1031, 1032, 1033, 1034) ANS2 
SMAVEC1) it 
SNAWECZ ) 
SAV ECS) 
GOTTO. 10725 
SMAVE( 1) 
SMAVE( 2) 
SMAVEC3) 
GOs TC. 1025 
SMAVE( 1) 
SMAVE( 2) 
SMAVE( 3) 
GO” Tew o2s 
SMAVE( 1) 
SMAVE( 2) 
SMAVE( 3) 
GO 10 4025 
TFCANS3 «EQ: (0) THEN 
GOPNOmII29 
ELSE 
PRINT*, '<< ERROR >> : ENTER THE NUMBER 1-4 OR 0 ==> TRY AGAIN !' 
GO TO 1010 
RN len 


oo WoW noua Wow al 
to he © m KO © - 


Hou 
SU). 


WRIMECOS 0/77) | 
PRINT *, ‘WHICH ARC WILL HAVE SCATTERABLE MINES ? 
PRINT *, ' ( ENTER THE THREE INDEX NUMBER OF ARCS FROM 1 TO 44)! 
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READ(5,*) (SMARC(I), I=1,3) 
IF(SMARC(1).GT.44 .OR. SMARC(2).GT.44 .OR. SMARC(3).GT.44) THEN 
PRINT, '<< ERROR >> : INPUTS MUST BE LESS THAN 44===>TRY AGAIN !' 

GO TO 1025 

ELSE 
WRITE(6,1026) (SMARC(I), I=1,3) 

1026 FORMAT(1X,'<< NOTE >> : SCATTERABLE MINES WILL BE ON ', 
ieee ee ARCS ) 


ENDasbe 
1020 WRITE(6,'(///)') 

PRINT*, 'HOW DO BLUE FORCE ALLOCATE THEIR UNIT ON EACH POSITION ?' 
PRINT *, ' (CHOOSE THE NUMBER OF OPTION 1 OR 2)' 

PRINT ee : Pesto desdedeve de ve sede deve ae ae ak de ere He de de de ae ae ae de ese de de ak Teak ak de ak ak Tove teak Fes sea deaksesea a | 
PRINT *, ' * OPTION POSITION##1(NODE28) POSITION#2(NODE27) *' 
PRINT *, ' * he 2 CO i 1&6, *! 
PRINT *, ' * Ze Lae 2 CO *! 
PRINT *, ' * 0). EXIT THE RPOGRAM ! *! 
PRINT * : deceacdesdesevedeskedeacacdesedescsedese sea dea skesesvsese deve dere de deve de te deve sek vere sea sewed se sea | 


READ(5,*) ANS3 
TE CANSS EQ: 1) THEN 
BLUEP1 = 2 
BLUEP2 = 1 
GO TO 1999 
Bioteeeetn sb, 2) LHEN 
BLUEP1 = 1 
BEUEPZ = 2 
Coro F399 
PlSss IFC ANSS - EQ: 0) THEN 
COnTO 1999 
EVESE 
PRINT*, '<< ERROR >> : ENTER THE NUMBER 1,2 OR O ===> TRY AGAIN !' 
CO” fer 1020 
BEND IF 
moo) 6CU RE TURN 
END 
DeTE DET eVESE se EGE TE VETE VEE VE VE TS FC FE IE TE SET BE TE TE Be FETE NE WE IE BE TE IE FETE IE TE IE NE DE NE WE IEE WE VEE BE EINE DEM WE VE WEE De IE IN Bese We Wee WW IW Ve 
fee. SUBROUTINE FOR DETECTION WHICH ARC THE RED FORCES ARE ? 
Perea ae ou oe 70 26 20 oh oe 7e 75 20 es 2590 10 95 BI eo BT eee TE TE oe Te TS TIC IC TS IO TE IE IT TE IT IE TE TC IE TC TENE EME WDE TE ICI TS TENE I ETE DT TE IE WE IEE VE IO TE TE VE 


SUBROUTINE DETECT (JA,IT, INCRE ,WHOLD,WID) 


INTEGER INCRE,WID 
REAL A1(4),A21(8) ,A22(6) ,A3(6) , WHOLD 


DATA Al /2.75,6. 35,9. 35,10. 25/ 

DATA A21 /1.15,3.3,4.7,5.45,6.4,7.1,8.55,9.45/ 
DATA A22 JIS 2343.4. 7.,6. ISmens ,7.45/ 

DATA A3 /4.5,6.6,8. 85,12. 35,12. 95,13. 55/ 


Gor tO) @3011,3012,3013,3014) TA 
3011 IF(WHOLD .LE. Al(1)) THEN 
WID = 5 
GO 4001390 
ELSE IF(WHOLD.GT.A1(1) .AND. WHOLD. LE.A1(2)) THEN 
WID = 15 
GO TO 1390 


wy) 


ELSE IF(WHOLD. GT. A1(2) .AND. WHOLD. LE. A1(3)) THEN 
WID = 33 
GO TO 1390 
ELSE IF(WHOLD. GT.A1(3) .AND. WHOLD. LE.A1(4)) THEN 
VID =-35 
GO TO 1390 
ELSE IF(WHOLD .GT. A1(4)) THEN 
WRITE( 13,1380) IT-1 
1380 FORMAT(1X,'RED FORCE IN AVE#1 TOOK BLUE POSITION#1 : BATTLE END !' 
1/5X, (BATILE TIME ===> (14)  MING@E 
PRINT *, 'RED FORCE IN AVE#1 TOOK BLUE POSITION#1 : BATTLE END !' 
PRINT *, “BATTLE TIME = (10-15 MiNGuEe 
GO TO 1399 
END IF 
S012 IF(WHOLD .LE. A21(1)) THEN 
WID = 4 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(1) . AND. WHOLD. LE. A21(2)) THEN 
WID = 7 
GO TO 1380 
ELSE IF(WHOLD. GT. A21(2) .AND. WHOLD. LE. A21(3)) THEN 
WID = 19 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(3) . AND. WHOLD. LE. A21(4)) THEN 
WID = 24 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(4) . AND. WHOLD. LE. A21(5)) THEN 
igupa= 20 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(5) . AND. WHOLD. LE. A21(6)) THEN 
WID = 32 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(6) . AND. WHOLD. LE. A21(7)) THEN 
WID = 34 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(7) . AND. WHOLD. LE. A21(8)) THEN 
iD —=635 
GO TO 1390 
ELSE IF(WHOLD .GT. A21(8)) THEN 
WRITE( 13,1381) IT-1 
1381 FORMAT(1X,'RED FORCE IN AVE#21 TOOK BLUE POSITION#1 : BATTLE ', 
1°END !* ,/54, ‘(BATTLE TINE ===> “(145 9MiNGGE 
PRINT *, 'RED FORCE IN AVEs$21 TOOK BLUE POSITION#1 : BATTLE END !' 
PRINT *,. “BATTLE TIME = , 18-1. “MINGHEy 
GO TO 1399 
END IF 
3013 IF(WHOLD . LE. A22(1)) THEN 
SOD ei tA 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(1) . AND. WHOLD. LE. A22(2)) THEN 
WID = 7 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(2) . AND. WHOLD. LE.A22(3)) THEN 
WID = 19 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(3) . AND. WHOLD. LE. AZ2@a)peaen 


WOR) == 25 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(4) . AND. WHOLD. LE. A22(5)) THEN 
Wid = 30 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(5) . AND. WHOLD. LE. A22(6)) THEN 
WID = 39 
GO TO 1390 
ELSE IF(WHOLD .GT. A22(6)) THEN 
WRITE(13,1382) IT-1 
1382 FORMAT(1X,'RED FORCE IN AVE#22 TOOK BLUE POSITION#2 : BATTLE ', 
PEND '' /5X,' (BATTLE TIME ===> ',14,' MINUTE)') 
PRINT *, 'RED FORCE IN AVE#22 TOOK BLUE POSITION#2 : BATTLE END !' 
PRINT *, 'BATTLE TIME =',IT-1,' MINUTE' 
GO TO 1399 
END IF 
3014 IF(WHOLD . LE. A3(1)) THEN 
W1D ee 
GO TO 1390 
ELSE IFC(WHOLD. GT.A3(1) .AND. WHOLD. LE. A3(2)) THEN 
“00 eal 
GO TO 1390 
ELSE IF(WHOLD. GT. A3(2) . AND. WHOLD. LE. A3(3)) THEN 
Wie 1G 
GO TO 1390 
ELSE IF(WHOLD. GT. A3(3) . AND. WHOLD. LE. A3(4)) THEN 
WiD = 123 
GO TO 1390 
ELSE IFC(WHOLD. GT.A3(4) .AND. WHOLD. LE. A3(5)) THEN 
Wiles ce? 
GO TO 1390 
ELSE IF(WHOLD. GT. A3(5) . AND. WHOLD. LE. A3(6)) THEN 
WID = 43 
GO TO 1390 
ELSE IF(WHOLD .GT. A3(6)) THEN 
WRITE( 13,1383) IT-1 
1383 FORMAT(1X,'RED FORCE IN AVE#3 TOOK BLUE POSITION#2 : BATTLE’, 
feeeEMD ! ,/58%, (BATTLE TIME ===> ",14,' MINUTE)’) 
PRINT *, ‘RED FORCE IN AVE#3 TOOK BLUE POSITION#2 : BATTLE END !' 
PRINT *, ‘BATTLE TIME =',IT-1,' MINUTE’ 
GO TO 1399 
END IF 
1390 RETURN 
oo WID = 0 
RETURN 
END 
Sedodedestededcsevodetovededetetedededesededekdedesedetovevete se tetetesede ick tetedcdicicicictedededete tetesededekeedccete tetek 
* 3. SUBROUTINE FOR IDENTIFYING THE INDIRECT-FIRE ! 
FOTe FC TOTO TCT ae ee Teese eceesesesesesevesesessdedotesedetoiesosesesedetetesevecesededetesete Redesete Fest Pek seketesede 
SUBROUTINE IDFIND (IA,CLOCK,POIF,IFANS) 
INTEGER POIF,IFANS 
REAL CLOCK,STIF,FTIF 
DATA SilrPeni lh /5.0,15.0/ 


PeCCLOCK .GE. STIE .AND. CLOCK .LT. FTIF) THEN 
PECEOIR@, £Q@.-92er THEN 


Ty 


IFC IA. EQ. 2 . OR: TASEOQ33 ite 
IFANS = 


Jas Ie 
ELSE IPC POIF 20. 93) ihe, 
IFC TAS SE Qaeo) SHEN 


IFANS = 1 
GO TO 1444 
BES 
IFANS = 0 
GO TO 1444 
END IF 
ENDO 
| Tabpey 2 
IFANS = 0 
ja blaeiela 
1444 RETURN 
END 
Teveveseseassesese weve ve sese M24 Veteve dese ae seve ve ve eve seve seve Tevet e Tete Fete vet Te sete Tete se se Seve sesevesc seve terse seek He seve 
* 4 SUBROUTINE FOR IDENTIFYING ib NE ees ! 
Rak cide tities BR hi bi bb ob bir oe bir Ob bir Carr Pte bir bk ee ire i ie i bik a bali ok ik ok oie ele he ero) searhorih serene ge ae eis 


SUBROUTINE Mee Ue (PMARS .SMARC ,WID , MFANS) 
INTEGER MFANS,WID, PMARC(5) ,SMARC( 3) 


DO) L510, 3 = 1.5 
PPCh Tien. PHARC CI) = iin 


MFANS = 1 
GO 10 31599 
Be) EP 


Jou “CONTINUE 
oie DO SO 
PPR. EO? SHARC UI). ines 
MFANS = 2 
GO 10. 1532 
END Le 
P20) (CONT: 
1521 MPAs =.0 
1599 SKECURN 


Sevesesesevesicoe srivdevevedededevededesedeovdsvevededsdede deve dededeveseves's Teak vee seve sesesese fee sese deve de seve de ve re 


LS J SUBROUTINE FOR IDENTIFYING THE DIRECT-FIRE ! 
Seavavavsesededsvevedevedevesvacsededesesesesevesesevescvledevesedevedsveresieat severe svdede sede seve se sese se Tea se se se Teese se Ie Ie 


SUBRCUTINE DRFIND (IA,WHOLD, RANGE, BRDIST,DFANS) 


INTEGER IC,IA,DFANS 


REAL WHOLD , PATH(4) , RANGE , BRDIST , AMBUSH 
DATA PATH /10.25,9.45,7.45,13.55/ 
DATA AMBUSH /4. 0/ 

IF(WHOLD .GE. AMBUSH-RANGE/2. . AND. 
1 WHOLD .LT. AMBUSH AND. 
1 (IA.EQ.2. .OR. IA. EQ. 3)) THEN 


$0 


DFANS = 1 
BRDIST = AMBUSH - WHOLD 


GOPTO-1679 
ELSE IF( WHOLD .GE. PATH(IA)-RANGE . AND. 
1 WHOLD .LT. PATH(IA) ) THEN 
DFANS = 2 
BRDIST = PATH(IA) - WHOLD 
GO TO 1699 
Bw TE 
woevO CONTINUE 
DFANS = 0 
1699 RETURN 
END 


Tere de deveve Te Heed deve Fee seve He Fe Fee Te Ie ee He Te Te HTH IC I Fete He Fee Te Fe Fe TE TC He Fe FE Te Fe He Fe Fe TIE FIN Fe Fe Fe 


* 6, SUBROUTINE FOR COMPUTING CASUALTIES BY INDIRECT-FIRE 
Kacdesvdedeavsesededcavsdedevesedeskeveseue slkeskeseseskeskese sede sk desk kaedesk ak sede ete tevesedevesedescsede dese dese seve He tek Hees 
SUBROUTINE IDFIRE(CIA,IT,RF,REDAVE,POIF,IFCAS) 
INTEGER NROUND,IA,IT,REDAVE(3),POIF 


REAL LETHAL, ROWSP ,COLSP , MUX , MUY , RHOX , RHOY , RATIO, PKILL 
REAL RF(4,0: 1001), IFCAS 
DATA NROUND,LETHAL /18,70. 8/ 
DATA  MUX,MUY /15. ,10. / 
DATA RHOX,RHOY pis, 10.7 
IF(REDAVE(POIF) .EQ. 1) THEN 
ROWSP = 12. 
COLSP = 12. 
GO TO 1669 
ELSE IF(REDAVE(POIF) .EQ. 2) THEN 
ROWSP = 10. 
COLSP = 10. 
GO TO 1669 
ELSE IF(REDAVE(POIF) .EQ. 3) THEN 
ROWSP = 8. 
COLSP = 8. 
GO TO 1669 
END IF 


1669 RATIO = (NROUND*LETHAL) / (ROWSP*COLSP*RF( IA,IT)) 
PHI = 3. 141592654 
= ((LETHAL*NROUND) /(2*PHI))**. 5 
PKILL = RATIO * (A*A/( (A*A+RHOX** 2 )**( A*A+RHOY*%2) Jo. 5) 


1 EXP( -. 5°*( (MUX**2) / (A*A+RHOX**2) + (MUY*2)/(A*A+RHOY**2) )) 
IFCAS = PKILL * RF(IA,IT) / 2. 

RETURN 

END 


tevcdededededevelededetededevedk ede steukkeskesevedesevlevedesedtestetedcsdetededetesedce dese de testes ds ekese desks vested teteved tered re 


* 7. SUBROUTINE FOR COMPUTING CASUALTIES BY MINEFIELDS 
Rieteksuevededevedewe kK kevedevededess vee devedededevededevedevedode deste dedeve deve k deleted destede te deve ve deve Fete He tet Fete seve te 
SUBROUTINE MFIELD (IA, IT,MFANS, INCRE,NA,WID,TIME,RF,MFCAS) 


“INTEGER MFANS,INCRE,NA,NOPM,NOSM,WID 
REAL TIME(NA) ,RF(4,0: 1001) , PCOEF , SCOEF ,MFCAS , TPM, TSM 


DATA NOEs NOs 9/7 300),200/ 


§] 


DATA i aes oe (20.0, 15a, 
DATA PCOEF ,SCOEF /. 00020 yague15, 


IF (MEANS SEO) 4) Sie. 
MFCAS = (PCOEF*RF(IA,IT)*NOPM*(TPM/60. )) / (CTIMECWID)7 INGes 
ELSE IFC MEANS We EO2 2)” THEN 
MFCAS = (SCOEF*RF( IA, IT)*NOSM*(TSM/60. )) / (TIME(W1ID)/ INGRE® 
END IF 
RETURN 
END 
deoeseacseoedesessseseok bless detedede ded dead severe seve dealeded deve sede bac tesa tesesedescsesedeseske se sese se ce tested tease reste sc 


* 8. SUBROUTINE FOR COMPUTING CASUALTIES BY DIRECT FIRE 
seoestestcocaccsossscseslevescocvedscedesteviestatcseatscstcesteseslcaksesesecestotscocscdestoestesatsestacacccskescseskcstocsesessesestot se 


SUBROUTINE DRFIRE(DFANS,DFA,BRDIST,IA,IT,RF,BF,AR,RDFCAS BDPGa ss 


1 PLTN , RANGE , NNN, ACO, AMO) 

INTEGER DFANS,DFA(4,1000),PLTN 

REAL RF(4,0: 1001),BF(4,0: 1001) ,PLBP,FBF(0: 1001) 
REAL BRDIST, RANGE , RED, BLU,RDFCAS , BDFCAS , AR, BR, MU, PL 
DATA PLBP / 0.0/ 

DATA AOMEGA,BOMEGA /0.50,1.00/ 

DATA AC , BC /0. 0380,0. 0160/ 

DATA AM, BM /0. 23,0. 00010/ 

DATA MU Pcoy 

ACOl= AC 

AMO = AM 

IFCWNWe, GEO) COoTG 1810 

PL = PLTN 


1810 FBFCIT) = PL 

C-=-FIND ENGAGED FORCES OF BOTH SIDES ON DIRECT FIRE BARES 
RED = RFC IA, 1T) 
BLU BEGIA, ITT) 


C---CASE-7:1 (MIXED LAW) : BLUE FORCE AMBUSHES THE RED FORCH® 
TFCDPANS £20.) 1) ePHEN 
AR-= AM (1 O-BRUIST/ KANER) 10 

BR = BM * (1. 0-BRDIST/RANGE )**MU 
BLU = FBFCIT) 
TP CBU SLi. PEBP noe 

RDFCAS = 0.0 

BLU = 0.0 
ELSE 

RDFCAS = AR * BLU 
END IF 
BDFCAS = BR * BLU * RED 
PREC Ijo= BLU = BOFCAS 


PL = FBFCIT) 
NNN = NAN + 1 
COTO 1900 


C---CASE-#2 CHEMBOLT EQUTION) ! 
ELSE ITEC DEANS 1 EO: 2 SHEN 
IFCRED..LE. 0. “OR. - BLU 2 LESSIG ge ae 
BDFCAS 0. 
RDFCAS O. 


GO TO 1900 


Ew IF 
AR = AC * (1. 0-BRDIST/RANGE)***MU 
BR = BC * (1. O-BRDIST/RANGE )****MU 
RDFCAS = AR*((RED/BLU)**( 1. 0-BOMEGA) )*BLU 
BDFCAS = BR*(( BLU/RED)**( 1. O0-AOMEGA) )*RED 
EID: TF 
1900 RETURN 
END 


Soaedesesdescccsesckvsccledeseskoesesestoe ded oksbovseskcokeskeakskeskecskvsescscccveskolksescclkeskescvesdcskeseste desk sesiestestese sect ses slesk teak 


* 9, SUBROUTINE FOR COMPUTING THE ADJUSTED SPEED ! 
sestcaeseskcotslcctolkclestotcclcsestcsicccsivstcsicslestestcolcvicsicvicntvakesksilevestccveskslcatstslcceskokestkokstotscseoscstestcacsrakestkestvstslkotstststcsicstk 


SUBROUTINE ASPEED (1,NA,ANS1,SPEED,ADSP) 


INTEGER ANS1,A0A1(4) ,A0A2(3) ,A0A3( 6) 


REAL SPEED(NA) , ADSP(NA) 
DATA AOA1 /5,15,33,35/ 
DATA AOA2 /4,7,19/ 
DATA AOA3 PO Tal is we (Re Ay 
GO TO (201,202,203,204) ANS} 
201 AVSECL) = SFEEDCL) 
GOeTO 2010 
202 POSECI) = SPEED(1} 
DO 2011 J = 1.3 
2011 i Che Oe AOA 205) ye ADSP(L)) = 0.9" SPEEDC 1) 
CeO 2010 
203 ADSP(I) = SPEED(I) 
DO 2012 J = 1,6 
ZO l2 IF(I .EQ. AOA3(J)) ADSPCI) = 0. 9*SPEEDC(T) 
COmTO 2010 
204 AUseCl) — SPEED(]) 
DOm20 ts J =... 3 
2013 Iv Creer meson 2Cs)) SADSPCL) = 0,8*SPEED(1) 
fo20) RETURN 
END 
GS Te ket a eri dette abit tr ite ie ae ir belie de be bie de te ako eRe i RC ed eh eh oe) de) ee 9 


¥ sh > aed FOR COMPUTING i Naeee cea eats ! 


> ie bak bee tit tte tte be te tite te beta tet Sesesvevevesesevevokdevevesededevevevededevesevedededvesvedesedvedke 


SUBROUTINE. RSPEED (1A, iT NA, SPEED, AMER DIST, WID,RANGE, AR alae 


i IFANS, MFANS , DFANS, OSPEED, ACO, AMO) 
INTEGER NA,WID,IFANS,MFANS , DFANS 

REAL AR, DIST(NA) ,SPEED(NA) , TIMECNA) ,MINSPD ,RF(4,0: 1001) 
REAL OSPEED(NA) 

DATA MINSPD /0,500/ 


IF(IFANS .EQ. 1) THEN 

SPEED(WID) = DIST(WID)*60. /(TIME(WID)+10. ) 
END IF 
IF(MFANS .EQ. 1) THEN 

SPEED(WID) = DIST(WID)*60. /(TIME(WID)+20. ) 
END IF 


83 


TECMPANG @ EQ: 20 Tiles 
SPEED(WID) = DISTCWID)*602/(7iIMEGW ieee 
jae )0, Jus 
ITF CUERANS ~ EO) 1 ane. 
SPEED(WID) = SPEEDC(WID) * (1.0-AR/AMO) + MINSPD 
IF(SPEED(WID) .GT. OSPEED(WID)) SPEEDCWID)S=s@s- cEueyars 
END IF 
TECURSNS*= £0, 2) tHE 
TPFCRE GIA, 171). EG] 0 wie teks 
SPEED(WID) = 0. 
ELSE 
SPEED(WID) = SPEED(WID) * (1.0-AR/ACO) + MINSPD 
IF(SPEEDCWID) .GT. OSPEEDCWID)) SPEEDCWID) = OSPERD@ vas 
END IF 
END IF 
RETURN 
END 


arvetclededesescdese dk devededssvstkesbdessseveselevedesesdecevevedess deve dese fevlede sede Jesede tesesk evs testes te dese ve seve tke se teste ste ok se ses teste oe 


aa? tiles a FIND ee TIME AND ani WHEN RED FORCE REACH BREAK- ee 
SOW VEVETE VIE VETO VOTE Tse TE ee CTE TONE TC TESTE ETE TE GS TOGO EBS BETS ETE TE BE UE TE IE TEENS TENE TE BE TENE IONE FETE TETE DEVE WE DE TEI e eee FETE DCSE IEE 

SUBROUTINE BREAK (IA, IT,NOC WHOLD RF, BF, RRESER, BREAKP , BREAKT) 

INTEGER RRESER 

REAL BREAKP(4) , BREAKT( 4) ,WHOLD, RF(4,0: 1001) ,BF(4,0: 1001) 

REC IA. IL )-=.0. 

BFCIA,IT) = BFCIA,IT-1) 

IF CNOG..EG. 03> TREN 
C REC DAT?) = RE TA. 11-1) 9+ RRESER 
BREAKPC IA) = WHOLD 
BREAKTC IA) = 
ENDS E 

NOG =a OG) 4 i] 
Plies GREGG 

END 
Sedevesevete ss ese Sees Sec OTe Tee ee Ne ETE Te TESTS SEE TENET Te Tes Fev Te Fe Tes e Te Ne Te Te Fev Fede se Te Te Ve Ve FETE TONS SCIEN TC TE IE VOICI IC BEV VC IE TE 
12. TO PRINT THE CASUALTIES AND SURVIVORS FOR BOTH SIDES | 
mee i oe ar ok dee one ar oe on aia ate ie Far acne bdo oe ae San ae ae tor be ae ae Lire oe ae be Soar ick toe eke eae ari se oro iveharierlarloeleriselscisrisricrie ese 

SUBROUTINE PRINT CRBN, BCO, BLUEP1 , BLUEP2 , RRESER, PLIN, NA, OUP Ue 

1 LFSUM,MFSUM, RDFSUM, BDFSUM) 

INTEGER RBN;BCO, BLUSP1], BLUEPZ NA. RRESER. FF bdo Cr ee 

REAL IFSUM(4) ,MFSUM(4) ,RDFSUM(4) , BDFSUM(4) 

REAL TIFSUM, IMPSUM, TRDE GP EOE 

CHARACTER**9 AVENUE(4 ) 

DATA AVENUE /'AVENUE##1' ,' AVENUE#21' ,'AVENUE#22' ,'AVENUE#3' / 

DATA TIE SUM IMPS Ca tT Rine Te he /4*0. 0/ 

WRITECOUREUL, (//)) 

WRITEC OUTPUT, 100) 
100 FORMAT(5X,'<<< RED CASUALTIES BY EACH TYPE OF BLUE FORCES >>>', 


1/60( = ), 
1/15X, 'INDIRECT-FIRE' ,4X,'MINE-FIELD' ,4X, 'DIRECT-FIRE' ,/60('-')) 
DO 101 IA = 1,4 

TIFSUM = IFSUM(CIA) + TIFSUM 

TMFSUM = MFSUM(IA) + TMFSUM 


$4 


TRDF = RDFSUM(IA) + TRDF 
TBDF = BDFSUM(IA) + TBDF 
WRITE(OUTPUT,102) AVENUEC IA), IFSUM( IA) ,MFSUM(IA) ,RDFSUM( IA) 
101 CONTINUE 
WRITEC OUTPUT, 103) TIFSUM,TMFSUM, TRDF 
102 FORMAT(3X,A9,5X,F6.1,10X,F6.1,9X,F6. 1) 
103 FORMAT(60('-'),/17X,F6. 1,10X,F6.1,9X,F6. 1) 
TRF = RBN*3.0 + RRESER 
TBF = BCO*3.0 + PLIN 


TRCAS = TIFSUM + TMFSUM + TRDF 

TRSUR = TRF - TRCAS 

TBCAS = TBDF 

TBSUR = TBF - TBCAS 

BFCAS1 = BDFSUM(1) + BDFSUM(2) 

BFCAS2 = BDFSUM(3) + BDFSUM(4) 

prov! = BLUEPI*BCO + PLIN/2 - BFCAS1 
BFSUR2 = BLUEP2*BCO + PLIN/2 - BFCAS2 


WRITE( OUTPUT, '(//)') 
WRITE( OUTPUT,105) BFCAS1,BFSUR1,BFCAS2 , BFSUR2 

105 FORMAT(5X,'<<< BLUE FORCE CASUALTIES FOR EACH FORT aaa 
miedee- )./15X, GASUALIIES ,5X, SURVIVORS’ ,/60( -'),/3X, 
mere toel 10N6F6.1./3x, FORT#H2' ,5X,F6. 1,10X,F6.1,/60('-')) 
MEGEECOUTPUT, (//)') 
WRITE( OUTPUT,106) TRF ,TRCAS , TRSUR,TBF,TBCAS , TBSUR 

106 FORMAT(5X,'<<< TOTAL CASUALTIES AND SURVIVORS >>>', 
1/60( -'),/13X, INITIAL FORCE’ ,5X,'CASUALTIES' , 6X, 
meer  IvVORS ,/60( - ),/5s, RED ,9X,F6.1,10X,F6.1,10X,F6. 1, 
ive BLUE ,8X,F6. 1,10X,F6.1,10X,F6.1,/60('-')) 


FORT#1' , 


RETURN 
END 
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APPENDIX C. EXEC FOR BASIC MODEL 


This 1s a execution code of Fortran-77 for the basic model in Appendix B. 


FILEDER 12 ISK. Tiles s aA 
EXEC WF77 BASIC (NOEAT NOWAR 


$6 


APPENDIX D. ADVANCED MODEL 


This 1s a computer program using Fortran-77 for the advanced model. 


C ---< ADVANCED MODEL >--- MADE BY LEE, JAE YEONG (1988.2.6) --- 


(MR=4, MB=8) 


C 

C 
INTEGER MR,MB 
PARAMETER 
REAL 


RED(MR,MB) , BLUECMR ,MB) , BATIME( MR ,MB) ,ROB(MR,MB) 


INTEGER ANSWER,REDAVE(3),POIF,SMAVE(3),BLUEP1,BLUEP2 ,SMARC( 3) 
INTEGER OUTPUT,TEND ,WAVE2 
INTEGER ARC(44),TAIL(44) ,HEAD(44) 


REAL 
REAL 
REAL 


ig? WRITE(6,— 
ERE; 


PRAT 
PRINS 


PRONTO 


PRED 
PRINT 
PRINT 
PRINT 
PRINT * 


Ys 


.Y & a 1 
‘ we 2 oe ww eo ww 


DIST(44) ,WIDTH(44) ,SPEED(44) , TIME(44) ,OSPEED(44) , ADSP( 44) 
TRCAS , TBSUR , TBCAS , VALUE(4) 

LINE(MB) , SQUA(MB) , ROOT(MB) , LIN, SQU, ROO 

Ca. ) 


HOW DO RED FORCES ON AVENUE-2 ATTACK ?' 

slesles sles es'es es'esless sedeseseves'es'e sloslestesledeslestes' evedes Noe tase stewed: do dogede den: | 
"ys <OPTION> < EXPLANATION > ve! 
bie ene] ALL FORCES ATTACK TO THE NODE 28 ve! 
ee ALL FORCES ATTACK TO THE NODE 27 ve! 
3 DIVIDE EQUALLY AND ATTACK TO NODE 27 AND *' 
"as NODE 28, RESPECTIVELY vs! 
ve 0 EXIT THE PROGRAM ! ve! 
 osevevevevededeve seve severe tevese reteset e Ses Seeded ede PeNe EER Te CENCE STREENEEENEIN INI S | 


READS, *) ANSWER 
192 (ANSWER | BOm O)mGo, TO: 6ss 
We (ANSWER. NE. 1 SAND SANSWERSNE a2 AND: 
1 ANSWER.NE. 3 . AND. ANSWER. NE. O peGOr 1057 77 


Beno (55,56,5/7) “ANSWER 


55 WAVE2 = 


1 


Co 10.56 
Se WAVE2 = 2 

GO TO 58 
D/ WAVE2 = 12 

GO TO 58 


58 INPUT = 
OUTPUT = 


12 


24 


C---OPEN OUTPUT FILES ! 
C---FILE ‘MOES2' HAS ALL MOE VALUES FOR EACH RED AND BLUE OPTIONS. 
C---FILE 'UTIL2' HAS UTILITY VALUES FOR EACH UTILITY FUNCTION. 
C---FILE 'WHOW2' REPRESENTS HOW THE BATTLE TERMINATES! 

OPEN ( UNIT = OUTPUT, FILE = 'MOES2' ) 


OPEN ( UNIT 
OPEN ( UNIT 


25 , FILE 
26 , FILE 


non 
= 
tt 
re 


DOwi iB = 1,MB 
CALL BDATA (IB,WAVE2,POIF,SMAVE ,BLUEP1,BLUEP2 , SMARC) 


§/ 


Oe 2 R= iri 
CALL RDATA (IR,REDAVE) 


DO 10 I= 1, 44 
READC INPUT,11) ARC(1),TAIL(1I) ,HEAD( 1), TIMEGR eo isiaee 
1 WIDTHCI) SPEED Gr 


CALL ASPED1 (WAVE2,1,IR,SPEED,ADSP) 
IF(WAVE2 .EQ. 12) CALL ASPED2 (1,IR,SPEED,ADSP) 
SPEED(I) = ADSP(I) 
OSPEED(I) = SPEED(1) 
10 CONTINUE 
a FORMAT( 3X, 12,2(3X,12),2X,F6. 2,6X,F4. 2,4X, 65.3, os Rome 


C-+-- READ THE ORIGINAL DATA AGAIN ! ------------- eee n enn n nnn e eee e een ee-- 
REWIND INPUT 


IF(WAVE2 .EQ. 1 .OR. WAVE2 .EQ. 2) THEN 
CALL BATLE1 (WAVE2,TRCAS,TBSUR,TEND,TBCAS, 
1 IB, IR, REDAVE, POIF, SMAVE, BLUEP1, BLUEP2,SMARC, 
1 ARC, TAIL,HEAD, TIME , DIST, WIDTH, SPEED , OSPEED) 
ELSE IF(WAVE2 .EQ. 12) THEN 
CALL BATLE2 (TRCAS,TBSUR,TEND,TBCAS, 
1 IB, IR, REDAVE , POIF, SMAVE, BLUEP1, BLUEP2, SMARC, 
1 ARC, TAIL, HEAD, TIME, DIST ,WIDTH, SPEED , OSPEED) 
END IF 


REDCIR,IB) = TRCAS 
BLUECIR,IB) = TBSUR 
BATIMEC IR,IB) = TEND 
ROBCIR,IB) = TRCAS/TBCAS 
DO 4 I = 1,44 

4 SPEEDCI}e= OSPELDCI) 


ho 


CONTINUE 


WRITE(OUTPUT,900) IB,RED(1,IB),RED(2,IB),RED(3,1B),RED(4, IB), 
1 IB, BLUE(1,1B),BLUE(2,IB),BLUE(3,IB),BLUE(4,IB), 
1 IB, BATIME(1,1B),BATIME(2,1B),BATIME(3,1B),BATIME(4,IB), 
1 IB ,ROB(1,1B),ROB(2,IB),ROB(3,1IB),ROB(4, IB) 

900 FORMAT( 3X,13,4(3X,F6.1),/3X,13,4(3X,F6. 1),/3%, 13,40 onsen 
i /3% 13, 6(03% 66.2) > 


DO 905 J = 1,4 
905 VALUE(J) = BLUE(J,IB) 


C---COMPUTE DESIRED VALUES FOR DIFERRENT UTILITY FUNCTIONS ! 
CALL UTIL (MR,MB,1IB, VALUE; bins SOU Kee 


LINEC IB) = LIN 
SQUAC IB) = SQU 
ROOTC IB) = ROO 


88 


Vi imecowo lO) ei beLINE CLE), s@URC IB) ,ROOTC IB) 
210 PORMATOC © SA lS-e(3A,F6.2) ) 


1 CONTINUE 
888 STOP ‘THIS MODEL IS COMPLETE ! THANK YOU !' 
END 


Pedededededeve devedte ete Ree RRR EERE RTT TCR TERRE ETC ICR TORE RRR TCR REE VOLTERRA TRE RITE 
Sel.) SUBROUTINE FOR DEFINING RED OPTIONS. 
FePeVe Teese Ree Se PRD ETTT ERE TRRTER TST EEER ETE RET TE TERRE ERT RERE EERE EREREERAEKR EE RET 
SUBROUTINE RDATA (IR,REDAVE) 
INTEGER IR,REDAVE(3) 


See TOmellale tI S20115391154) Ik 
eo 1 REDAVE(1) = 1 
REDAVE(2) = 1 
REDAVE(3) = 
GO TO 1155 
eS 2 REDAVE( 1) = 0 
REOAVECZ) = 2 
REDAVE(3) = 1 
GOeTO lls5 
i> 3 REDAVE(1) = 
REDAVE(2) = 
REDAVE(3) = 
GOrlO 1155 
1154 REDAVE( 1) = 
REDAVE(2) = 
REDAVE(3) = 
cOenO Tiss 
misa> RETURN 
ee 


aleelsalse’salse esslovestes eve feate Ses'evs - Cd s Ses'ss n'a s's Js slen's we we lente esses seelss 1s wloe ="e a velsetentawten'e aneoalcatsnlsntian teste Je we sJe Je Jes se shee! selewacltouts 
evar everer ee oe 20 shee au Gu au aR ON CN OD OD ER ‘evs ses Velen ees 


* 1. “SUBROUTINE FOR iceoiseke daniel OPTIONS. 


"este cies’ ee'ee s‘ss'es'e tee Je se levesic ese exes! teats s! ses see sleste ete et. alow nto as oid sles'e esieslesies's 


Noe © 


OW © 


“SUBROUTINE. ‘BDATA (a, WAVE2, POIF, “SMAVE, BLUEP1, BLUEP2 , MARC ) 


INTEGER IB,WAVE2,POIF,SMAVE(3) ,BLUEP1,BLUEP2 , SMARC(3) 
IIB = IB 
IF(IB .LE. 4) THEN 

BLUEP1 


MzsdmecO TO (1251,1252,1253,1254) IB 
1251 POIF = 2 
SMAVE( 1) 
SMAVE( 2) 
SMAVE(3) 
SMARC( 1) 


Wee re 


8&9 


SMARC(2) = 35 

SMARC(3) = 42 
IF(WAVE2 . EQ. 
SNARC(1) = 
SMARC(2) = 


ELSE IF(WAVE 
SMARC( 1) 
SMARC( 2) 
SMARC( 3) 

END IF 

GO TO IG, 

1252 POIF = 2 
SMAVE(1) 
SMAVE( 2) 
SMAVE(3) 
SMARC( 1) 
SMARC( 2) 
SMARC(3) 

IF(WAVE2 . EQ. 
SMARC( 1) 
SMARC( 2) 
SMARC( 3) 

ELSE IF(WAVE 
SMARC( 1) 
SMARC( 2) 
SMARC(3) 

END IF 

GO TO 1267 

1253 POIF = 2 
SMAVE( 1) 
SMAVE(2) 
SMAVE( 3) 
SMARC( i) 
SMARC(2) = 42 
SMARC(3) = 43 

IF(WAVE2 . EQ. 
SMARC( 1) 
SMARC( 2) 
SMARC(3) 

ELSE IF(WAVE 
SMARC(1) 
SMARC( 2) 
SMARC(3) 

END IF 

GO TO 1267 

1254 POIF = 2 
SMAVE( 1) 
SMAVE( 2) 
SMAVE( 3) 
SMARC( 1) 
SMARC( 2) 
SMARC(3) 

IF(WAVE2 . EQ. 
SMARC(1) = 
SMARC(2) = 


nun wow i 
— 
Hou trot wen lout wen 


(tone OC 


0 


tou wor ue 


Won uw Ww ou al 
Uo 
a 


1) THEN 

SHO 

34 

42 

-5Q.” 2) nen 
> 

39, 

42 


1S 2EN 

34 

a2 

42 

SEO Ze FN 
30 

oie 


f 
G? 


THEN 


OQ" 2), THES 


is) - THEN 
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SMARC(3) = 35 
ELSE IF(WAVE2 .EQ. 2) THEN 


SMARC(1) = 25 
SMARC(2) = 30 
SMARC(3) = 39 
END IF 
GO TO 1267 
267 IB = IIB 
RETURN 
END 


Sovedesedcdedesesededevetedeveseve Tested dete eevee vere ete reve Fete rete fete ve tele ve te tested Fev Feteve de Fete se Fer I] 


* TII. SUBROUTINE TO EXECUTE THE "BATTLE1" TYPE BATTLE ! 
Sevcvededededede cede tevedesdedededcdededesdededevedevevede de tededededededesesededevedededetcddedededetoacdedeseseds testedetedete Teveveke He fev x 


THIS PROGRAM DEAL WITH THE BATTLE CASE THAT HAS 3 AVENUES OF 
PEPROACH FOR RED FORCES CONTINUEOUSLY. (1.E., RED FORCES ON AVENUE-2 
ATTACK TO JUST ONE OF TWO BLUE POSITIONS). 


OOIaan 


SUBROUTINE BATLE1 (WAVE2,TRCAS,TBSUR,TEND ,TBCAS, 

1 IB, IR,REDAVE, POIF , SMAVE, BLUEP1, BLUEP2 ,SMARC, 
1 ARC, TAIL, HEAD, TIME, DIST WIDTH, SPEED , OSPEED) 
INTEGER NA, NN, NOA, NOP, RBN, RRESER, BCO, PLIN 

PARAMETER (NA=44, NN=28, NOA=3, NOP=2, PLTN=40) 

PARAMETER (RBN=500, RRESER=150, BCO=170) 

INTEGER REDAVE(NOA) , SNAVE(NOA) , PMAVE(NOA) 

INTEGER ARC(NA) , TAIL(NA) , HEAD(NA) 

INTEGER PMARC(5),SMARC(3),IDARC(3,0: 1001) 

INTEGER IFA(3,1000) ,MFA(3,1000) ,DFA(3,1000) 

INTEGER POIF ,BLUEP1 , BLUEP2 ,ANS1,ANS2 ,ANS3, ANS4 

INTEGER INPUT, OUTPUT ,TP1,TP2,DIF,DPMF ,DSMF, INCRE ,WID 

INTEGER IFANS ,MFANS , DFANS, TEND , WAVE2 


REAL DIST(NA) ,WIDTH(NA) , TIME(NA) , SPEED(NA) , OSPEED( NA) 
REAL BREAKP( 3) , BREAKT( 3) ,RBP(3) 

REAL RF(3,0:1001),BF(3,0: 1001) ,;WHERE(3,0: 1001) ,SP(3,0: 1001) 
REAL IFC(3,0: 1001) ,MFC(3,0: 1001) ,RDFC(3,0: 1001), 

1 IMDC(3,0: 1001) ,BDFC(3,0: 1001) 

REAL IFSUM(3) ,MFSUM(3) ,RDFSUM(3) , BDFSUM(3) 

REAL IFCAS ,MFCAS , DFCAS , BLEFT1, BLEFT2 , WHOLD 

REAL CLOCK, RANGE, BRDIST,AR,RB 

DATA DIF,DPMF,DSMF /10,20,15/ 

DATA  PMAVE gene) 

DATA  PMARC SS lS ea) 

DATA RANGE yay 

DATA RB PB Gy) 

ANS1 = IR 

NNN = 0 

IUSED = 0 

NEQ12 = 0 

NEQ23 = 0 


C---DEFINE INITIAL FORCE LEVEL AND LOCATION ! 
27 Der28 1 = 1,NOA 
RF(I,0) = REDAVE(1I)*RBN 


9] 


WHERE( 1,0) 
Treeio, = 
MFC(1,0) 
RDFC(1,0 
IMDC(I,0 
BDFC(1,0 
IFSUM(1) 
MFSUM( 1) 
RDFSUM( I) 0 
BDFSUM(1) = 0.0 
RBP(I) = RB*RF(I,0) 


0 


Oo © | 


0. 
= 0.0 
= 0.0 
) = 0.0 
Y= 0.0 
) = 0.0 
0. 
0. 


Ce 
Oh, 


= 0 
= 0 


= 
-_ 
— 


TFCWAVE2 7EO 3 1y fon. 
BRC i,0) = BLUEPI BCOLs FiIUIN 


BF(2,0) = BLUEPI*ECO + Pim 
BEGS,0) = BEVEP2“3Co 
ELSE IF(WAVEZ ~EQ. 2) 7) Tees 
BrOi,0) = BLUEPI-BeO 
BF( 2,0) = BLUEP2: BCG Pin 
BFC3,0)9 = BLUEPZ -2CO on 
BND iF 
NOC = 0 
INCRE = i 
DO 99950 TT =. 1 SOO Nee 
CLOCK = IT 
DO 30 IA = 1,NOA 
BREAKP( IA) = 0.0 
BREAKT( IA) = 0.0 
PEGG IA SIT) BGC A= io) 


MFC(IA,IT) = 
RDFC( IA, IT) 
IMDC(IA, IT) 
BDFC( IA, IT) 


MECCTACT i -n® 


RDEC CIA El 5) 
PAC CLA =e) 
BDPOCtAS ET = )) 


RPC IA IT )i = RCIA ia) 

BECIA, 11) sae beG ee) 

WHOLD = WHERE( IA, IT~-1) 

CALL DETET1 (hAVE2,IA, IT, INCRE,WHOLD,WID) 
TE QW ID CEO. Oe Gor nue 

IDARC(IA,IT) = WID 

BRDIS? = 9999; 

SPC IASI)» = SPEED WIRD) 

TS = (SPEEDC(WID)/60)* INCRE 

WHERE CIA; 12} = WHOLDe = 7s 


C---IS THERE INDIRECT FIRE ? OR MINEFIELD ? OR DIRECT FIRE ? 
CALL IDFNDi (1A,CLOCK,POIF,IFANS) 
CALL MFFND1 (PMARC,SMARC,WID,MFANS) 
CALL DRFNDi (WAVE2,1A,WHOLD,RANGE, BRDIST,DFANS) 


IFACIA,IT) = IFANS 
MFACIA,IT) = MFANS 
DFACIA,IT) = DFANS 


IFC IFANS. EQ.0 .AND. MFANS.EQ.0 . AND. DFANS.EQ.0) GO TO 30 


fe--COMPUITE THE CASUALTY OF INDIRECTI-FIRE ! 
PECIEANS . EQ. 1) THEN 
CALL IDFIR] (IA,IT,RF,REDAVE,POIF,IFCAS) 
RECLA, IT) S="RECTA, lta IFCAS 
IFSUM(C IA) = IFCAS + IFSUM(IA) 
PEGCLACI ET) = IFCCIA,1IT) + IFCAS 
END IF 


m---COMPUTE THE CASUALTY BY MINE-FIELD ! 
PECHBANS. EQ? ls] OR. | MPANS EQ: 2) THEN 
CALL MFILD1 (IA,IT,MFANS , INCRE,NA,WID,TIME,RF,MFCAS) 
RECAST) = RFCLSS TT) s- HECAS 
MFSUM( IA) = MFCAS + MFSUM(IA) 
MFC(IA,IT) = MFCCIA,IT) + MFCAS 
END IF 


We--GOMPUTE THE CASUALTY BY DIRECT-FIRE ! 
PCE ANomenO. lo .OR.  DFANS {bQ, 2) THEN 


ieee erly) Lie BFCIA. IT) _ AND. 
1 IUSED .EQ. 0 _ AND. 
1 RF(IA,0) .GT. 0.0 ) THEN 
RF(IA,IT) = RF(IA,IT) + RRESER 
cep = 1 
END IF 
CALL DRFIR1 (DFANS,DFA,BRDIST,IA,IT,RF,BF,AR,RDFCAS, BDFCAS, 
1 PLTN , RANGE , NNN) 


Pera hh) = RECTA IT) = RDFCAS 


BECTA. 1T ) Be TAg il) =“BeReAS 
RDFSUM( IA) = RDFCAS + RDFSUM(IA) 
BDFSUM( IA) = BDFCAS + BDFSUM( IA) 


RDFC( IA, IT) 
BDFC( IA, IT) 
END IF 


FORe CTA Tit ROEGAS 
BUPCCIActl eae BDRCAS 


IF(RF(IA,0) .GT. 0. .AND. RF(IA,IT) .LE. RBP(IA)) THEN 
CALL BREAK1 (IA, IT,NOC,WHOLD,RF,BF,RRESER, BREAKP, BREAKT) 
END IF 


Bee eCO.PUIE THE REDUCED SPEED DUE TO THE INDIRECT FIRE OR MINEFIELD OR 
C UNDER THE DIRECT FIRE BASED ON THE RANGE OF TWO FORCES ! 


CAEL RSPEDI(1A,1T,NA,SPEED,TIME,DIST,WID,RANGE,AR,RF, 
1 IFANS , MFANS , DFANS , OSPEED) 


SP(IA,IT) = SPEED(WID) 

TS = (SPEEDCWID)/60)* INCRE 

WHERECIA,IT) = WHOLD + TS 

IMDC(IA,IT) = IFCCIA,IT) + MFCC(IA,IT) + RDFC(IA,IT) 
30 CONTINUE 


IF(WAVE2 .EQ. 1) THEN 
Pi CVEOi2eeaNe. 0) GO TO 9999 
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BF(1,1T) = MINC BFC1,17T). Bh cain 

BF(2,1T) = MINC BF(1,17), BFC ae) 

BF(3,IT) = BF(3,I1T) 

IF(DFA(1,IT) .EQ. 2 JAND. DPAC2. 11) Osman 


1 RF(1,IT) .GT. 0. .AND. RFC2,11) 7 CTOs, 
BFC1,IT) = CRFCI,1IT) / CRFC1,ITJSRPC251 0 ee 
BF(2,1T) = (RFC1i,1T) / CREC1,1D)FREC 2010) ee 


BF(3,1T) = BF(3,1T) 
NEQ12 = IT 
END IF 
ELSE THCWAVE2 SE Omee meen 
IF(NEQ23 .NE. 0) GO TO 9999 
BF(1,1T) = BF(1,IT) 
BF(2,IT) = MIN( BF(2,1T),BF(3,1T) ) 
BF(3,1T) = MINC BE(2, yee 
IF(DFA(1,1IT) .EQ. 2 .AND. DFAC(2,1T) .EO. 2 .AND. 


u RFC1,1T) .GT. 0. AND. RFC2,17) = Gi 0 eee 
BECi Ite — BEG) 
BF(2,1IT) = (RF(2,1T) / (RFC2,1T)+RE(3511) eae ee 
BF(3,1T) = (RF(3,1T) / (RF(2,1T)+RF(3,11)))) eae eee 
NEQ23 = IT 
END UE 
END ie 


9929) VCONT TINUE 


She, CALL PRINT] (REN,BCO,BLUBP1,BLUBP2 .RRESER Ge thee 
I WAVE2, IF SUM, MPSUs KDPSUMN BDPSU- 
i TREAS, TECAS, IRSUR, (Bou 


TEND = 1ihe-" 1) 
RETURN 


+! vee wtou'e ser'es'ovecles'os' sleder'ec'eventesoules's ve slesiee'e siecle vs esis ee'es ves tows teas Js kd Jeu 9 ow s'eos lente ese steoJe ve kd see evesevevedevevededes' eves s': 
eu 7a eu #u et rh erty ue BD ER Sd ae ee ee Nir ty ee Ris ee 


ce l- 1, ober aa ae LOCATING THE ARC THE RED FORCES ane ATTA 


fou en enten' on’ sles ‘es es'eses's eves levee" es'¢ teats Jos 
a5 wes sae ee 


‘SUBROUTINE. DETET1 (WAVE2,IA, IT, TNCKE WHOLD WID) 


INTEGER INCRE,WID,WAVE2 
REAL A1(4),A21(8) ,A22(8) ,A3(6) ,WHOLD 


DATA Al J 227546235935. 10 gey 

DATA A21 /1.15,3.3,4.7,5. 45,6. 6,721, Bu oMomeey 
DATA A22 /i.15,3.3,4.7,6:15,6.837-45, 7. oon 
DATA A3 1%, 5,6.6,8: 85,12. 35,12. 9ommeusay 


TECTIA 2 EQ. 1). THEN 

LEQCWHOLD: . bE. AlCl) aHEN 
WID = 5 
COriG. 1320 

ELSE IFC(WHOLD.GT.A1(1) .AND. WHOLD. LE. A1(2)) THEN 
WID== 25 
GO -1C1370 

ELSE IFCWHOLD.GT.A1(2) .AND. WHOLD. LE. A1(3)) THEN 
WID = 33 
comers IC 
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ELSE IF(WHOLD. GT.Ai(3) .AND. WHOLD. LE. A1(4)) THEN 
wip = 35 
GO TO 1390 
ELSE IF(WHOLD .GT. A1(4)) THEN 
WRITE( 26,1380) IT-1 
1380 FORMAT(1X,'’RED FORCE IN AVE#1 TOOK BLUE POSITION#1 : BATTLE END !' 
Wer eCEATILE GEME ===> = 14, MINUTE) ) 
GO TO 1399 
END IF 
ELSE IF(IA .EQ. 2) THEN 
GO TO (1311,1312) WAVE2 
1311 IF(WHOLD .LE. A21(1)) THEN 
Wee 4 
GO TO 1390 
ELSE IF(WHOLD. GT.A21(1) . AND. WHOLD. LE. A21(2)) THEN 
wide 7 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(2) . AND. WHOLD. LE. A21(3)) THEN 
WID = 19 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(3) . AND. WHOLD. LE. A21(4)) THEN 
WID = 24 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(4) . AND. WHOLD. LE. A21(5)) THEN 
WID = 29 
GO TO 1390 
ELSE IF(WHOLD. GT.A21(5) .AND. WHOLD. LE. A21(6)) THEN 
CEB) ese 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(6) . AND. WHOLD. LE. A21(7)) THEN 
Wid =—9e6 
GO TO 1390 
ELSE IF(WHOLD. GT.A21(7) . AND. WHOLD. LE. A21(8)) THEN 
NID Ss 3 
GO TO 1390 
ELSE IF(WHOLD .GT. A21(8)) THEN 
WRITE( 26,1381) IT-1 
1381 FORMAT(1X,'RED FORCE IN AVE#21 TOOK BLUE POSITION#1 : BATTLE ', 
eho CBARILE TIME ===> ‘,14, MINUTE) ’) 
GO TO 1399 
END IF 
1312 IF(WHOLD .IE. A22(1)) THEN 
Wall aid) 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(1) . AND. WHOLD. LE. A22(2)) THEN 
= -7 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(2) .AND. WHOLD. LE. A22(3)) THEN 
RAP. ale 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(3) . AND. WHOLD. LE. A22(4)) THEN 
WID = 25 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(4) . AND. WHOLD. LE. A22(5)) THEN 
iD eS Si0 
GO TO 1390 
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ELSE IF(WHOLD. GT. A22(5) . AND. WHOLD. LE. A22(6)) THEN 
WID = 39 
GO TO 1390 
ELSE IF(WHOLD .GT. A22(6)) THEN 
WRITECZ6- 1362 eae? 
1382 FORMAT(1X,'RED FORCE IN AVE#22 TOOK BLUE POSITION#2 : BATTLE 
1 END 1 Se ===> ',14,' MINUTE)') 
GO] 10. 1399 
END IF 
ELSEaIP CIA B03 33) THES 
TFCWHOLD . LE. A3SC1))  gHES 
WID = 2 
GO TO 1390 
ELSE IF(WHOLD. GT.A3(1) .AND. WHOLD. LE. A3(2)) THEN 
Woe =i 
GO TO 1390 
ELSE IFCWHOLD. GT. A3(2) . AND. WHOLD. LE. A3(3)) THEN 
WID = 13 
GO™TOsts 98 
LSE IFCWHOLD. GT. A3(3) .AND. WHOLD. LEO AS( 4) eine 
WID = 23 
GOT TOs 139.0 
ELSE IF(WHOLD. GT. A3(4) .AND. WHOLD. LE. A3(5))staEn 
WID = 42 
Go-To 1390 
ELSE IF(WHOLD. GT. A3(5) .AND. WHOLD. LE. A3(6)) THEN 
wiD = 43 
GO.7TO 1390 
USE IPC\HOLD 2G. A3@o) einen 
WRETE( 25.1585) Tie. 
1363 FORMAT( 1X, "RED FORCE IN AVE#3 TOOK BLUE POSITION#2 : BATTLE ; 
1' EXD !' ,/5X,'(BATTLE TIME ===> ',14,' MINUTE)‘ ) 
CO TO.129° 
SOs 
END Sie 
1390 RETURN 
15999" \ 1b e="0 
RETURN 
END 
Par) get Bel ee arate baie Var} el oe dai rae bate ok baa ae biter) se eae ed oe a oe bata ta seh ve or sr lari arlaick scl ae brig iorlarishlerlarierise lorie eiskiseie es 


WBE = eens FOR IDENTIFYING THE INDIRECT-FIRE ! 


ray pa pees ee eee ea De a eS al a ee ee Pe al ee ok Td el el Da ROO a Oe et eRe Ad 


sevesedevesesss's sess Sevevevssevevededessdededsvedededslesedricdvdedesedesededevedsdevededs ve ve de teade deve tote te ve ke vevevede ve 


SUBROUTINE IDFND1 (IA, CLOCK, POIF, IFANS) 
INTEGER POIF,IFANS 

REAL COCK Gt meat Tin 

DATA STIF,FTIF /5.0,15.0/ 








IF(CLOCK .GE. STIF .AND» CLOCK . LI. Bile eae 
TPGIA = £0.02). THEN 
IFANS = 1 
GO TO 1444 
ELSE 
IFANS = 0 
GO TO 1444 
END IF 
ELSE 
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IFANS = 0 

END IF 
1444 RETURN 

END 
Sesesesesteseslcseciecstcseclesestestseslesicvesvcledesicoeoesevevevesvcevecesdevedesestcsesestocsesescsdescslestesesecltsescotsleseseseseseseslevesle 
* TII-3. SUBROUTINE FOR IDENTIFYING THE MINE-FIELD ! 
Sevevevevededededevesedevedsvedssesevevededevedevoveteseveve te seve de dea devedenvdevevededesesesedevesevcsdesdc ded de vlestese se veveseve 

SUBROUTINE MFFND1 (PMARC,SMARC ,WID,MFANS) 

INTEGER MFANS,WID,PMARC(5) ,SMARC(3) 


PePTs108F = 1,5 
Pe - EQ. PMARC(1)) THEN 
MFANS = 1 
CeetO 1599 
END IF 
iO CONTINUE 
Pee Oo 152087 = 1,3 
MCW TD ener sMARC(S)) ) THEN 
MFANS = 2 
COP TOe 1599 
ie le 
1520 CONTINUE 
1521 MFANS = 0 
1599 RETURN 
ates 


a3 t- a" ‘SUBROUTINE FOR IDENTIFYING THE DIRECT- FIRE ! 


vestes' ese s'e ese we sfecleules stevles's ete ven ententon! ae! eves eves estes'eve se se eles toute s‘es'evc we vee tonto we we te ahs ste aleelen'e 


SUBROUTINE DRFND1 (WAVE? 1A \WHOLD, RANGE /BRDIST ‘DFANS) 


INTEGER IA,DFANS ,WAVE2 
REAL WHOLD, PATH( 3) , RANGE , BRDIST, AMBUSH 


DATA AMBUSH ie 0/ 
PATH(1) = CAS, 
PATH(2) = ar 
PECWAVEZ BOs 52) PALH(C2) = 7:45 
PATH(3) = 13.55 


IF(WHOLD .GE. AMBUSH-RANGE/2.  . AND. 


1 WHOLD .LT. AMBUSH . AND. 
] IA at yee ) THEN 
DFANS = 1 
BRDIST = AMBUSH - WHOLD 
COMIG@ Gg? 
ELSE IF( WHOLD .GE. PATH(IA)-RANGE  . AND. 
1 WHOLD .LT. PATH(CIA) ) THEN 
DFANS = 
BRDIST = PATH(IA) - WHOLD 
Eee TOr 1699 
END IF 
DFANS = 
1699 RETURN 
on 
Yevevetedevedevesevoteletetetiteteleletolileledeletedetetedeloledeleloveloledesevelelevedoleleledesedelesotefeloledeselededesevede 


OF 


cau GAL a SOE eeee FOR COMPUDING oT es By MOE =n 
Jedevesedese de dk secede Jove Fe Fees Fe 5e Teste se Tes ve se Fess Fo VOTE WS Se SS OTE TS Te TC TE TOTS TE TE TC TE TE IC TE 28 TE TEE TE TOUS BERET EDEN Te SE IRIE 
SUBROUTINE IDFIR1(1A,1T RF ,REDAVE, POIF , IFCAS) 
INTEGER NKOUND TA, 11 REDSV EC je ome 


REAL LETHAL, ROWSP,COLSP ,MUX ,MUY ,RHOX |RHOY (RAD TO@ER tine 
REA RE(3,0: 1001) 1hGes 
DATA NROUND ,LETHAL /18,70. 8/ 
DATA PU Muy See), 
DATA RHOX , RHOY Jie Y 
IFCREDAVECPOIF) 2B.) 1)) THEN 
ROWSP = 12. 
COUSE =r: 
GO TO 1669 
ELSE ITFCREDAVE( POLE) 7 EQ. 72) SanEN 
ROWSP = 10. 
COLSP = 10. 
GO TO 1669 
ELSE TPC REVAVECEOIE) = EO: 6s) laa 
ROWSP = 6. 
GOLSP = 6: 
GO TO 1669 
ENDS 


PRING “sen ea RPC 1A. 1n) 
1669 RATIO = (NROUND*LETHAL) / (ROWSP*COLSP*RF(IA,IT)) 
PHI = 3. 141592654 
= ( (LETHAL*NROUND) /(2*PHI) )#*. 5 
PKILL = RATIO * (A*A/( (A*A+RHOX**2)2( AFAFRHOY**2) J, 5) 
1 EXP(-. se (MUE °2) /(A*AFRHOX*2) + (MUY**2) /(A*A+RHOY*2) )) 
IFCAS = PRILL * RF(CIA. 17) 
RETURN 


oUeseten ritibittetetricik i tiste tei eivicitisicisieieisie se sinisifimieie cititi sisi se cit citi title ciel e eee rid tlk hil y 
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SUBROUTINE. MPILD1(14, IT, MFANS, INCRE GNA, WID “TINE RF MFCAS) 


INTEGER -MPANS; INCKE, NA NOPH  NOSti wile 


REAL TIME(NA), RF(3, 0: 1001), PCOEF, SCOEF ,MPCAS, DEion 
DATA NOPM ,NOSM 7200, 2007 

DATA DPM lsd f 20205 150) 

DATA PCOEF, SCOEE (7. 00020R 0001s, 


TPCHEANS 3 EQ 7) REN 

MFCAS = (PCOEF*RFCIA,IT)*NOPM*( TPM/60. )) / (TIMECWID)/ INCRE) 
ELSE TFCHMPANS 20), 2)2 HEN 

MFCAS = (SCOEF*RF( 1IA,IT)*NOSM*(TSM/60. )) / (TIMECWID)/INCRE) 
END IF 


Kiki sek tea tested sae Teste seeds ke sek see ves tess Hee He Tee Tete rs Te Tees Fe He THe HE HIKE TK Te HK IH 
ctamlOsGl/e Bete egaen pe COMPUTING CASUALTIES BY DIRECT FIKE 


avvesevevesdkesevededscevevestsevesssididsdivevcdcdesevevedeledcdotedslssevedetete dete dete devoted de teke deck Tete ke RARER He 


SUBROUTINE DRFIR1( DFANS ,DFA, BRDIST, IA, IT, RF, BF ,AR, RDFCAS , BDFCAS, 


9S 


1 PLIN , RANGE , NNN) 
INTEGER DFANS,DFA(3,1000) ,PLTN 


REAL RF(3,0: 1001) ,BF(3,0: 1001) , PLBP,FBF(0: 1001) 
REAL BRDIST, RANGE, RED, BLU, RDFCAS , BDFCAS, AR, BR, MU, PL 
DATA PLBP /10. 0/ 

DATA AOMEGA,BOMEGA /0.50,1.00/ 

DATA AC,BC /0. 0490,0.0250/ 

DATA AM, BM /0. 23,0. 00010/ 

DATA MU /1.0/ 


DECNNNT. GT. 0) GO TO 1810 
PL = PLIN 
1810 FBFCIT) = PL 
Cee-FIND ENGAGED FORCES OF BOTH SIDES ON DIRECT FIRE BATTLE ! 
RED = RF(IA,IT) 
BLU = BFC(IA,IT) 


ee -GASe-7) (MIXED LAW) : BLUE FORCE AMBUSHES THE RED FORCE ! 
RECBEANS . £0.) 1). THEN 
AR = AM * (1-BRDIST/RANGE)***MU 

BR = BM * (1-BRDIST/RANGE )**?*MU 
BLU = FBF(IT) 
PCR LUM iia eke THEN 

RDFCAS = 0.0 

BLU = 0.0 
a llpsyie 

RDFCAS = AR * BLU 
END IF 
BDFCAS = BR * BLU * RED 
FBFCIT) = BLU - BDFCAS 


PL = FBF(1T) 
NNN = NNN + 1 
GO TO 1900 


C---CASE-#2 (HEMBOLT EQUTION) ! 
ELSE IF(DFANS .EQ. 2) THEN 

i(rEoie eo) OR) EBLU .LE. 0.) THEN 

BDFCAS 


END IF 
AR = AC * (1-BRDIST/RANGE)***MU 
BR = BC * (1-BRDIST/RANGE )**MU 
RDFCAS = AR*((RED/BLU)**( 1. 0-BOMEGA) )*BLU 
BDFCAS = BR*((BLU/RED)**( 1. 0-AOMEGA) )*RED 
END IF 
1900 RETURN 
END 
Tedededesesevesedvledevededese sede skdedededededcaedkedede de deve dese dese de teak ve vex sede te se se se seve ae ve ve ae ve de sea teak ve dese Fede 
* III-8. SUBROUTINE FOR COMPUTING THE ADJUSTED SPEED BASED ON 
* THE NUMBER OF RED UNITS (BATTALIONS) ON EACH AVENUE. 


= = omlontonton satae'e oe oe Oe ee we me a'seesn'se oe ae 2 = x) Saee' am awaea aw ee’ salsa a ae's Cede CY 
vevevers seule’: vs ee ee od #d a's rt 3s ss =" bn se ss “4 alcets a vs “5 ¥4 rs s'ev’s neds ~s bets 3s a A def rts sé rishi ws e sc sc sevieute esky: As ws ~; Je Aditi titi s 


SUBROUTINE ASPEDICWAVE2,1,IR,SPEED,ADSP) 


INTEGER WAVE2,1IR,AOA1(4) ,AOA2(8) ,A0A3(6) ,AOA21(8) , AOA22(8) 
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REAL SPEED(44) ,ADSP( 44) 


DATA AOA1 /5,15,33,35/ 

DATA AOA21 {47,1926 ,29,325s00eor 
DATA AOA22 14,7,19,25, 30,39 ,39,39/ 
DATA AOA3 /2,11, 13. 230coeeey 


DO 2009 K = 1,8 
AOA2(k) = AOQA2i(K) 


2009 IF(WAVE2 .EQ. 2)  AOA2(K) = AOA22(K) 
GO TO (201. 202,203,704 yaar 
201 ADSP(I) = SPEED(I) 
GO TO 2010 
202 ADSP(I) = SPEED(I) 
DO 2elies = anc 
2011 IF(I .EQ. AOA2(J)) ADSP(I) = 0. 9*SPEED(I) 
GO 108 2010 
203 ADSP(1) = SPEED(I) 
DO 2012 J = 1,6 
2012 IF(I .EQ. AOA3(J)) ADSP(I) = 0. 9*SPEED(I) 
GO TO 2010 
204 ADSP(I) = SPEED(I) 
DO 20s eda ies 
2013 IF(I .EQ. AOA2(J)) ADSP(I) = 0. 8*SPEED(I) 


2010 GRECUR 
END 
esate bar se irl ie her ese fae bee bet situ Low ae cl selon ae oe bate ear weer Le ie eae rte Gael ot Wary ar bar pio iss lariszior lacie irish Yer ismiscisblsm stiscissoessiceyes BS 
“ TII-9. SUBROUTINE FOR COMPUTING THE REDUCED SFEED BAsEDee. 
% ees ieee ee 


. 0 FL weg ee eS 9 ee 6 8 Ue eee. 28 eee eee ee 8 be ee 


Sedeveskvevestesssesrses Sessvevevesevedovevsvevsvevevevevesescdedesededevedvesesedesevesesevesesedesesevevevesedcveskvesese 


SUBROUTINE RSPED1(IA, Paes. ‘SPEED, TIME, DIST ,WID RANGE aoe 


1 IFANS ,MFANS , DFANS, OSPEED) 

INTEGER NA,WID,IFANS ,MFANS ,DFANS 

REAL AR ,DISTCNA) ,SPEED(NA) , TIMECNA) , MINSPD REGS. 0 enous) 
REAL OSPEED( NA) 

DATA MINSPD LOSSY, 

DATA ACO, AMO (0.06. 0.20) 


TPCTIPANS =..5G. v1) ea HEN 
SPEEDC(WID) = DISTCWID)*60. /C TIME GWID) aro) 
END IF 
TP CUP ANS © EQ. 1)e EEN 
SPEED(CWID) = DISTCWID)*60: /( TIME WIb Zo 
ENDei 
IFCMFANS «EQ. 2) THEN 
SPEED(WID) = DISTCWID)*60- /( TIMEC WI 
END If 
TFCDPANS 50, 21) EN 
SPEED(WID) = SPEED(WID) * (1-AR/ANO) NSE 
IF(SPEED(WID) .GT. OSPEEDC(WID)) SPEED(WID) = OSPEED(WID) 
END IF 
IFC DFANSSe Qs 22) HEN 
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Meche CTA iomeEC. O25 THEN 
SPEEDC WH) = OF 
ELSE 
SPEED(WID) = SPEEDC(WID) * (1-AR/ACO) + MINSPD 
BeGsPEENDCWID) ~Glae@sPEEDCWID)) SPEEDCWID) = OSPEED(WID) 
BND IF 
END IF 
RETURN 
END 
Fereveretede deve ve dete vere Fete FeV Fe Fee ye He Ve Ve Ne Fee Fe Fe Fe Fe Fe TON NCE FN TC He TOT Fe eA TTT ITC KF PRE RERRRERK RK 
* III-10. SUBROUTINE TO FIND THE TIME AND LOCATION 
* WHEN RED FORCE REACH BREAK-POINT ! 
sekavaekksokacsekavdededevedcdcdededesls te ded ded severed vous destedede ede de deuedevedete dk devese de tees dese Fekc Fee de teteke tea sek kek te 


SUBROUTINE BREAK1 (IA,IT,NOC,WHOLD,RF,BF,RRESER, BREAKP, BREAKT ) 


INTEGER RRESER 
REAL BREAKE CS), BREAKT( 3), WHOMDRRECS,0: 1001), BF( 3,0: 1001) 


RFCIA,IT) = 0. 
BeCtA;, IT) = BEC IA,IIT-1) 
PEC NOC e. EOs0) \ THEN 
C KE GlArdoe = KPGrASiT-1) + KRRESER 
BREAKP( IA) = WHOLD 
BREAKT( IA) = IT 
ENDS 


NOC = NOC + 1 
itt RETURN 
END 
devededededeveve dedeve deve deve dededevevede deed de de deve de ve dee de ede vege Peeve NER TE LE ORIENT EERIE IN 
* IIT-11. SUBROUTINE TO PRINT THE CASUALTIES AND SURVIVORS 
* FOR ete See o. eee sind oe 


Soh bi ks fr) hie biel ie parhae & Dieets ribo isk tibial lca china ls ord acho ac oie lo be egy oir) te ok sted ire ke bode ke elie be ker ee eh re ba oi 
SUBROUTINE PRINTL (RBN, BCO, BLUR Ime LUEP2  KRESER,PLIN,NA, 
11 WAVE2, IFSUM, MFSUM, RDFSUM, BDFSUM, 
1 TRCAS , TBCAS , TRSUR , TBSUR) 
PieeCGeR KBN,BCO,BLUEP] ,BLUEP2 ,NA,RRESER,PLIN,WAVE2 
REAL Poesy resus). RDPSUMC3), BDFSUM(3) 
REAL i eSsUied oe SUM STRDE .TBDE 
REAL TREAS -TRSUK  TBCAS ,TBSUR 
TIFSUM = 0.0 
TMFSUM = 0.0 
TRDF = 0.0 
TBDF = 0.0 
TRCAS = 0.0 
TBCAS = 0.0 
TRSUR = 0.0 
TBSUR = 0.0 
WO 101 1A = 1,3 
TIFSUM = IFSUMCIA) + TIFSUM 


MFSUMCIA) + TMFSUM 
TRDF = RDFSUMCIA) + TRDF 


101] 
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Se lee Ge 1 ae I SP Val a 


TBDF = BDFSUMCIA Sere De 
CONTINUE 
TRF = RBN*3.0 + KRESER 
TBF = BCO*3.0 + PLIN 
TRCAS = TIFSUM + TMPSUM + TRBF 
TRSUR = TRF - TRCAS 
TBCAS TRDE 
TBSUR = TBF - TBCAS 
IF(WAVE2 .EQ. 1) SEEN 


BFCAS1 = BDFSUM(1) + BDFSUM(2) 
BFCAS2 = BDFSUM(3) 

BFSUR] = BLUEPI-BCO ee PRINS waren 
BESUR2 = BLUEP2Z “BCO - Bbroas2Z 


ELSE IF(CWAVE2 7~EQ. 2) THEN 


BFCAS1 = BDFSUM(1) 
BFCAS2 = BDFSUM(2) + BDFSUM(3) 
BFSUR1 = BLUEP1*BCO = BFCAS]1 
BFSUR2 = BLUEP2*BCO + PLIN - BFCAS2 
Jyh Derek a 
TRCAS = TIFSUM + IMFSUM + TRDF 
WhOUR = sine =o TROAS 
TBCAS = TBDF 
TBSUR = TBF - TBCAS 
RolUnRN 
eee 
sichactictal etic tak tar hoe oe bie loer ssedesesetesevess seve teseae se Fes We Ne We Fe Me Fe IIe We ae Ie Be Ie ITI Ie VEIT IT Ie We 90 ee a oe ae eee 


SUBROUTINE TO EXECUTE THE "RATTLED" TYPE BATTLE. 


0 Ne ee ee ee Gee ee ae Oe 


gee: ealee ules C7202 evevesedeves's esevesevedededvetededesedevesevedevesessscvevesedeve 


THIS PROGRAM DEAL WITH THE BATTLE CASE THAT HAS 3 AVENUES OF 
APPROACH FOR RED FORCES INITIALLY, BUT ATTACK TO BLUE WITH 4 AVENUES 
OF APPROACH FINALLY. (I.E., RED FORCES ON AVENUE-2 DIVIDE EQUALLY 
AND ATTACK TO BOTH BLUE POSITIONS : NODE 27 AND NODE 28). 


SUBROUTINE BATLE2 (TRCAS,TBSUR,TEND,TBCAS, 
1 IB, IR,REDAVE,POIF ,SMAVE, BLUEP1,BLUEP2, SMARC, 
1 ARC, TAIL, HEAD, TIME , DIST ,WIDTH , SPEED , OSPEED) 
INTEGER NA, NN, NOA, NOP, RBN, RRESER, BCO, PLTN 

PARAMETER (NA=44, NN=28, NOA=3, NOP=2, PLTN=40) 

PARAMETER (RBN=500, RRESER=150, BCO=170) 

INTEGER REDAVE(NOA),SMAVE(NOA) , PMAVE(NOA) 

INTEGER  ARC(NA),TAIL(NA) ,HEAD(NA) 

INTEGER PMARC(5),SMARC(3),IDARC(4,0: 1001) 

INTEGER IFA(4, 1000) ,MFA(4, 1000) ,DFA(4, 1000) 

INTEGER  POIF,BLUEP1,BLUEP2,ANS1,ANS2,ANS3, ANS4 

INTEGER INPUT, OUTPUT, TP1,TP2,DIF,DPMF ,DSMF , INCRE ,WID 
INTEGER IFANS .MFANS , DFANS , TEND 


REAL DIST(NA), WIDTH(NA), TIME(NA), SPEED( NA) , OSPEED( NA) 

REAL BREAKP( 4) , BREAKT(4) , RBP(4) 

REAL RF(4,0: 1001) ,BF(4,0: 1001) ,WHERE(4,0: 1001),SP(4,0: 1001) 
REAL IFC(4,0: 1001) ,MFC( 4,05 1001) ( RDFC(4 70s Ociee 

1 IMDC(4,0: 1001) ,BDFC(4,0: 1001) 

REAL IFSUM(4) ,MFSUM(4) ,RDFSUM(4) ,BDFSUM(4) 

REAL IFCAS ,MFCAS ,DFCAS, BLEFT 1, BREE a2 yo 
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REAL CLOCK, RANGE, BRDIST,AR,RB 


Pema DIF, DPM ,DSMF /10,20,15/ 

DATA PMAVE eee) 

DATA PMARC [NORA Ree. / 
DATA RANGE i Nees 

DATA ~ K&B 70s 0 


ANS1 = IR 
NNN = 
IUSED 
NEQ12 
NEQ34 
DO5 1=1,4 
IFSUM(T) 
MFSUM( I) 
RDFSUM(T) 
BDFSUM(T) 
> CONTINUE 
C---DEFINE INITIAL FORCE LEVEL AND LOCATION ! 


lou to 


0 
0 
0 


O50 
Cae 


RF(1,0) = REDAVE(1)*RBN 
RF(2,0) = (REDAVE(2)*RBN)/2 
RF(3,0) = (REDAVE(2)*RBN) /2 
RF(4,0) = REDAVE(3)*RBN 
DO 28 I = 1,4 

WHERE(I,0) = O. 

IFC(I,0) = 0. 

MFC(I,0) = 0. 

RDFC(1I,0) = 0. 

IMDC(I,0) = 0. 

BDFC(I,0) = 0. 

28 RBP(I) = RB*RF(I,0) 
BF(1,0) = BLUEP1*BCO + PLTN/2 
BF(2,0) = BLUEP1*BCO + PLTN/2 
BF(3,0) = BLUEP2*BCO + PLTN/2 
BF(4,0) = BLUEP2*BCO + PLTN/2 
NOC = 0 
INCRE = 1 
DO 9999 IT = 1,500, INCRE 
CLOCK = IT 
DO 30 IA = 1,4 

BREAKP(IA) = 0.0 
BREAKT(IA) = 0.0 
IFC(IA,IT) = IFC(IA,IT-1) 


MFC(IA,IT) = MFC(IA,IT-1) 
RDFC(IA,IT) = RDFC(IA,IT-1) 
IMDC(IA,IT) = IMDC(IA,IT-1) 
BDFC(IA,IT) = BDFC(IA,IT-1) 

RF(IA,IT) = RF(IA,IT-1) 

BF(IA,IT) = BF(IA,IT-1) 

WHOLD = WHERE(IA,IT-1) 

CALL DETET2(IA,IT,INCRE,WHOLD,WID) 
IF(WID .EQ. 0) GO TO 999 
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IDARC(IA,IT) = WID 

BRDIST = 9992: 

SPCIA,IT) = SPEED(WID) 

TS = (SPEED(WID)7 60) INCRE 
WHEREC TA, 12) = WOLD aa 


C---IS THERE INDIRECT FIRE ? OR MINEFIELD? ORSDIREOG Te ee 
CALL IDFND2 (IA,CLOCK, POIF, IFANS) 
CALL MFFND2 ( PMARC,SMARC ,WID,MFANS) 
CALL DRFND2 (IA,WHOLD,RANGE, BRDIST,DFANS ) 


IFAC IA,IT) = IFANS 
MFACIA,IT) = MFANS 
DFACIA,IT) = DFANS 


IFC IFANS.EQ.0 . AND. MFANS. EQ.0 . AND. DFANS. EQ) 0) Coe iGm 


C==-COMPUTE THE CASUALTY er INDPREel- Fire 
PPCTEANS: = p03 15 ThE 
CALL IDFIR2 (14,17,RF,REDAVE, POR les 
RFC14, 11) = RCIA) ] Pees 
[PS@iICTA)s= TFCAS + 0PSumcrs) 
IPCCIA,17) = IFCCIA,1T) > + 18GAs 
ENS 


C---COMPUTE THE CASUALTY BY MINE-FIELD ! 
IF(MFANS.EQ.1 .OR. MFANS.EQ.2) THEN 
CALL MFILD2 (IA,IT,MFANS, INCRE,NA,WID,TIME,RF ,MFCAS) 
RF(IA,IT) = RF(IA,IT) - MFCAS 
MFSUM(IA) = MFCAS + MFSUM(IA) 
MFC(IA,IT) = MFC(IA,IT) + MFCAS 
END IF 


C==-COMPUTE THE CASUALTY: BY UR ECT hic 
IFC DPANS ~EQ. 1 ©OR: DEANS b0ge2) ie. 


TFC REC TACIT) - Lee heh _ AND. 
1 ieceD BOs 0 _ AND. 
1 RECIA. Gy) Gi 1000 ) THEN 
RF(IA,IT) = RF(IA,IT) + RRESER 
IUSED = 1 
END IF 
CALL DRFIR2 (DFANS,DFA,BRDIST,IA,IT,RF,BF,AR,RDFCAS, BDFCAS, 
1 PLTN , RANGE , NNN, ACO, AMO) 
RF(IA,IT) = RF(IA,IT) - RDFCAS 


BECLAY ES) BEC IA,1IT)) = BDBEGAS 

RDFSUM( IA) = RDFCAS + RDFSUM(IA) 

BDFSUM( IA) = BDFCAS + BDFSUM(IA) 

RDFC(CIA,IT) = RDFC(IA,IT) + RDFCAS 

BDFC(IA,IT) = BDFC(IA,IT) + BDFCAS 
END IF 


IF(RF(IA,0) .GT. 0. .AND. RFCIA,11) {LEO SREP Ca ees 


CALL BREAK2 (IA, IT,NOC,WHOLD,RF,BF,RRESER, BREAKP , BREAKT) 
BND ee 
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foo Ul bein REDUCED SPEED DUE TO THE INDIRECT FIRE OK MINEFIELD OR 
C UNDER THE DIRECT FIRE BASED ON THE RANGE OF TWO FORCES ! 


CALL RSPED2 (IA, 1T,NA,SPEED,TIME,DIST,WID,RANGE,AR,FF, 
1 IFANS ,MFANS , DFANS , OSPEED, ACO, AMO) 


SP(IA,IT) = SPEED(WID) 

TS = (SPEED(WID)/60)* INCRE 

WHERE(IA,IT) = WHOLD + TS 

IMDC(IA,1IT) = IFCCIA,IT) + MFC(IA,IT) + RDFCC(IA,IT) 


30 CONTINUE 


IF(NEQ12 .NE. 0) GO TO 36 
BF(1,I1T) = MIN( BF(1,1T),BF(2,IT) ) 
Poe2eiay = MING BEC Iie BrC2,1T) ) 
36 IF(NEQ34 .NE. 0) GO TO 37 
BF(3,IT) = MIN( BF(3,IT),BF(4,IT) ) 
BE(G IT) = MIN(C BF(3,17),BF(4,1T) ) 
37 IF(NEQ12 .NE. 0) GO TO 38 
MaCPaNGien yee tore? SAND) PrAC2,1T) .6O. 2 “CAND. 
(ee REC) GT.0. AND, OREC2,17) .GT. 0.) THEN 


Eee eae let) JeCRrC 1,IT)+RFC2,17))) * BFC1,IT) 
Pee ee ammhnGza it) JC RPC] IT )ERF( 2, Im) * BE(Z, IT) 
NEQ12 = IT 

ENDS TE 


38 ReCNEOveee Nene) GO 10 9999 
eC Ob eGerer ijpeee. 2 AND. | DFAC4,IT) . EQ. 2 . AND. 
IL PG cir OG. AND, REC4,17) .GI. 0.) THEN 


BF(3,1T) = (RF(3,1T) / (RF(3,1T)+RF(4,1T))) * BF(3,I1T) 
BF(4,1T) = (RF(4,IT) / (RF(3,IT)+RF(4,1T))) * BF(4,I1T) 
NEQ34 = IT 

END IF 


go CONTINUE 


a99 CAD Nc wanoN, bOO,DLUEP], BLUEPZ RRESER,PLIN,NA, 
i Proei tb SsUM (RDESUM .BDESUM , 
1 TRCAS , TBCAS , TRSUR, TBSUR) 
meND = IT - 1 
RETURN 
END 


Maesdesetescsevedeaks kedededesdesvese sede skeseske sess se aesk se ses aka seskeslesesesk ska aesesk seve ok sesese se sea se aka se sede ese ve seve te se se se ves oe 


* TV-1. SUBROUTINE FOR LOCATING THE ARC THE RED FORCES ARE ATTACKING. 
FWraedede sede devede deve dedesesevedesedese dea tevesedevedcde ak seve se vede deveve de ve k se sede ve sede seve ved seve ves seve deve deve desk ve seve ve te ved 


SUBROUTINE DETET2 (IA,IT,INCRE,WHOLD,WID) 


INTEGER INCRE,WID 


REAL A1(4) ,A21(8) ,A22(6) ,A3(6) ,WHOLD 

DATA Al V2ariseeo 59, 955 10).25/ 

DATA A2] /1.15,3.3,4.7,5.45,6.4,7.1,8.55,9.45/ 
DATA A22 /1.15,3.3,4.7,6.15,6.8,7.45/ 

DATA A3 /4.5,6.6,8. 85,12. 35,12. 95,13. 55/ 


GO TO (301173012 ,301353014 ars 
3011 IF(WHOLD . LE. Al(1)) THEN 
OUD) als 
GO TO 1390 
ELSE IF(WHOLD.GT.A1(1}) .AND. WHOLD. LE.A1(2)) THEN 
WID = 15 
GO TO 1390 
ELSE IF(WHOLD. GT.A1(2) .AND. WHOLD. LE. A1(3)) THEN 
WID = 33 
GO TO 1390 
ELSE IF(WHOLD. GT. A1(3) . AND. WHOLD. LE. A1(4)) THEN 
WID = 35 
GO TO 1390 
ELSE IF(WHOLD .GT. A1(4)) THEN 
WRITE( 26,1380) IT-1 
1380 FORMAT(1X,'RED FORCE IN AVE#1 TOOK BLUE POSITION#1 : BATTLE END !' 
1/5X, (BATTLE TIME ===> “12, “Manone 
GO TO 1399 
END IF 
2 Oa IF(WHOLD . LE. A21(1)) THEN 
Win = 4 
GO TO 1390 
ELSE IFC(WHOLD. GT. A21(1) . AND. WHOLD. LE. A21(2)) THEN 
wiID = 7 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(2) . AND. WHOLD. LE. A21(3)) THEN 
WID = 19 
GO TO 1390 
ELSE IFC(WHOLD. GT. A21(3) . AND. WHOLD. LE. A21(4)) THEN 
Wie = 25 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(4) . AND. WHOLD. LE. A21(5)) THEN 
WID = 29 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(5) . AND. WHOLD. LE. A21(6)) THEN 
WID = 22 
GO TO 1390 
ELSE IFC(WHOLD. GT. A21(6) . AND. WHOLD. LE. A21(7)) THEN 
WID = 34 
GO TO 1390 
ELSE IF(WHOLD. GT. A21(7) . AND. WHOLD. LE. A21(8)) THEN 
WiD =) 35 
GO TO 1390 
ELSE IF(WHOLD .GT. A21(8)) THEN 
WRITE( 26,1381) IT-1 
1381 FORMAT(1X,'RED FORCE IN AVE#21 TOOK BLUE POSITION#1 : BATTLE ', 
1'END !',/5X,'(BATTLE TIME ===> ',14,° MINUTE) ) 
GO TO 1399 
END IF 
3013 IF(WHOLD .LE. A22(1)) THEN 
WID = 4 
GO TO 1390 
ELSE IF(WHOLD. GT. A22(1) . AND. WHOLD)RE.A22(2 peor 
WID = 7 
GO TO 1390 
ELSE IFCWHOLD. GT. A22(2) . AND. WHOLD. LE. A22(3)) THEN 


106 


WID = 19 
GO 10 i390 
ELSE IFCWHOLD. GT. A22(3) . AND. WHOLD. LE. A22(4)) THEN 
WID = 25 
CO 10) 1290 
PoOE elEOWwHOLDaGl,AzgzZ(4)>. AND. WHOLD. LE. A22(5)) THEN 
WID = 30 
On 0 1390 
ELSE IF(WHOLD. GT. A22(5) . AND. WHOLD. LE. A22(6)) THEN 
WID = 39 
GO TO 1390 
PESE LECWHOLD =Gl.- A22(6)) THEN 
WRELEC26., 1382) Best 
1382 FORMAT( 1x, "RED PORCH EN AVE#22 TOOK BLUE POSITION##2 : BATTLE ', 
1'END !',/5X,'(BATTLE TIME ===> ',14,' MINUTE)') 
GO TO 1399 
END IF 
3014 IF(WHOLD .LE. A3(1)) THEN 
wID = 2 
Om MEO ISIN) 
ELSE IF(WHOLD. GT. A3(1) . AND. WHOLD. LE. A3(2)) THEN 
WID = 11 
GO TO 1390 
ELSE IFCWHOLD..GT.A3(Z) .AND. WHOLD. LE. A3(3)) THEN 
WID = 13 
CUShO 1390 
PlopelecwHOLD. GI.A3(3) .AND. WHOLD. LE. A3(4)) THEN 
WID = 23 
CGe1e 71390 
Push etrewaOLDoGT.A3(4) .AND: WHOLD. LE. A3(5)) THEN 
WID = 42 
GO TO 1390 
ELSE IF(WHOLD. GT.A3(5) .AND. WHOLD. LE. A3(6)) THEN 
WID = 43 
COrt0 71390 
Eliot I[BGWHOLD .GT. A3(6)) THEN 
meer 26,1363) IT-1 
1383 FORMAT(1X,'RED FORCE IN AVE#3 TOOK BLUE POSITION#2 : BATTLE’, 
men be! ./5X, (BATILE TIME ===> ‘,14, MINUTE) ') 
GO TO 1399 
END IF 
mo90° RETURN 
1399 WID = 0 
RETURN 
END 
Feredodese dete deveve sede dedeakt ae ae sets ak ae ak ak akvc eve decked ak seve te sedk vetoes ae tek sete detest dete Fe Fede dk Fe reve Fesek Tet Fe 


%* IV-2. SUBROUTINE FOR IDENTIFYING THE INDIRECT-FIRE ! 
FeteHRIeKA Tete KTevesese sete Fete vee Ne Bese Fe Fe Tee Mee Ns Tete se Ke TER TTR ETN TT Te tetete de Tek Tee Fete Fete Fe tek Tek seve 
SUBROUTINE IDFND2 (IA,CLOCK, POIF,IFANS) 
INTEGER POIF,IFANS 
REAL CLOCK. STIFF, FIIF 
DATA Sib bel 75.015. 0/ 


ieeGLOCK .GE. STIF -.ANDS CLOCK .LT. FIIF) THEN 


ee POTESEO. 2r THEN 
PASEO. Ok. TATEQ.3) THEN 
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IFANS = 1 
GO TO 1444 


IFANS = 0 
GO TO 1444 
ENO ee 
ELSE? CEO LE SO een. 
TPCIA .EQ. 6 Sab 


IFANS = 1 
GO TO 1444 
Elo 
IFANS = 0 
GO TO 1444 
BNO SE 
BND Ir 
ose 
IFANS = 0 
END IF 
1444 RETURN 
END 
Ro te Oa oie ak bee ie be ei te a ie tk oi ioe oe de ote a Sete ee ek ole fae ake ae he ate Lo hake) oir hai tr br oe Lae hole Sehr igeloehivasehseisches seis eee 
LV =: See FOR eee eee TRE TENE = ane ! 
ake seh dah ie | ae eit | Dire ia iri fir barlaci ge ie ie Gk bay thor Gere eh ehh the re Geechee ier yetie ter rly hiy aehepisriselpeise voteuie OST hs 


SUBROUTINE MFFND2 (PMARC, SMARC .WID, MPANS) 
INTEGER MFANS,WID,PMARC(5),SMARC(3) 


DO 1510 I = 1,5 
IF(WID .EQ. PMARC(I)) THEN 


MFASS = 1 
GO" Vor 1552 
END IF 


1510; “CONTINUE 
2117 }DO S208) S13 
TPCWLo .EOe SNARCCJ) ©} HEN 


MFANS = 2 
GOT Om 97 
iN Deke 


1520: =-CONTINVE 
1521 MFANS = 0 
1599 TRE PUR 
END 
oe si ale a hr i ir a a ae ke ke ok te ae ote ate ke a efor oe ae oe kl oe he sk ok ome sie oe Lael airs Volo teh sehiriseliclarbiriorlaehseiscl se hirigeisciseigeiscisnise eae 
* TV-4. SUBROUTINE FOR IDENTIFYING THE DIRECT-FIRE ! 
Iaesveseakroeseveskeoeseveveveresededevevevedesodededeve veveeseveveveve ve vese sede Tete seve ve sere Fess Tose He Ne 3 Fe Fe Fe Te Me Fe Fe IE Ne FEI 
SUBROUTINE DRFND2 (IA,WHOLD,RANGE ,BRDIST,DFANS) 


INTEGER olive lA. DPaNs 


REAL WHOLD, PATH(4) , RANGE , BRDIST, AMBUSH 
DATA PATH /10.25,9.45,7.45,13. 55/ 
DATA AMBUSH /4. 0/ 

IF(WHOLD .GE. AMBUSH-RANGE/2.  . AND. 

1 WHOLD . LT. AMBUSH _ AND. 

1 (IA.EQ.2. .OR. IA.EQ.3)) THEN 

DFANS = 1 


BRDIST = AMBUSH - WHOLD 


COMO. 1609 
ELSE IF( WHOLD .GE. PATH(IA)-RANGE  . AND. 
1 WHOLD . LT. PATH(CIA) Je LEN 
DFANS = 2 
BRDIST = PATH(IA) - WHOLD 
CO 19 1699 
END LE 
1600 CONTINUE 
DFANS = 0 
1699 RETURN 


rcdesevedte Ke sevedeveded seve ve ve He Ie Tere Here Fe Fe vere He Fe se Fe Ne Ve He Ve Fe Ne He Fe Fe Fe Fe Me Fe A Fe Fe Fe Fe Fe_A Fee Ke Feeds ve ke Fe Fe Fe Fe Ik 


%* IV-5. SUBROUTINE FOR COMPUTING CASUALTIES BY INDIRECT-FIRE 
KiIcvevestevesevevededeseweveveuk seve de veuks sete ved deve sede vs de vets te dese seeded ke ke dededede devedeve sek seve sete todo se ve seve ve ve 4 
SUBROUTINE IDFIR2 (IA,IT,RF,REDAVE,POIF,IFCAS) 
INTEGER NROUND,IA,IT,REDAVE(3) ,POIF 


REAL LETHAL , ROWSP , COLSP , MUX , MUY , RHOX , RHOY , RATIO, PKILL 
REAL RF(4,0: 1001), IFCAS 
DATA NROUND,LETHAL /18,70.8/ 
DATA MUX,MUY G5 aloe) 
DATA RHOX,RHOY PUB lOsy) 
IF(REDAVE(POIF) .EQ. 1) THEN 
ROWSP = 12. 
COLSP = 12. 
GO TO 1669 
ELSE IF(REDAVE(POIF) .EQ. 2) THEN 
ROWSP = 10. 
COLSP = 10. 
GO TO 1669 
ELSE IF(REDAVE(POIF) .EQ. 3) THEN 
ROWSP = 8. 
COLSP = 8. 
GO TO 1669 
END IF 


1669 RATIO = (NROUND*LETHAL) / (ROWSP*COLSP*RF(IA,IT)) 
PHI = 3.141592654 
A = ((LETHAL**NROUND) /( 2**PHI) )**. 5 
PKILL = RATIO * (A*A/((A**A+RHOX***2 )*( A%A+RHOY*2) 2, 5) 


b. eee ( 2 CA ARH OICCr? ) te CMUY**2 ))/( A*ATRHOY**2 ) ) ) 
PeGAo = PKILL * RFCIA, IT) / 2. 

RETURN 

END 


Hetercdedededededede te deadcsde k ve ved seve vested devede sedevededevedcdeveve vere deve ve deve deve sede sete te sete sete teste te ve de te tes tee x 


%* TV-6. SUBROUTINE FOR COMPUTING CASUALTIES BY MINEFIELDS 
Fedededededevedesovevevededeseve dock seve de devevedededevedevedevevensvedeste de deve dese deve teste te seve tere teste dese tee te tek seve He 


SUBROUTINE MFILD2 (1A,IT,MFANS,INCRE,NA,WID,TIME,RF,MFCAS ) 


INTEGER MFANS, INCRE,NA,NOPM,NOSM,WID 


REAL TIME(NA) ,RFC4,0: 1001) , PCOEF,SCOEF ,MFCAS , TPM, TSM 
DATA NOPM ,NOSM /300,200/ 
DATA Pei, fol ea 70.1 507 
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DATA PCOEF,SCOEF /. 000 20RmaNO Ts, 


IFCMFANS 2 EQ. 1) GHEN 
MFCAS = (PCOEF*RF( IA, IT)*NOPM*(TPM/60. )) / CDTIMEQGWID)7 1 Nees 
ELSE. [PCMPANS 2 bOe2)) THEN 
MFCAS = (SCOEF*RFCIA, IT)*NOSM*(TSM/60. )) / CTIMECWID) / INCRE) 
END IF 
Foy 
END 
kietokdeckdcdesevedcdeskeeakcdetededestededcvedededevesen kick ktevedktevekdetek feeds te cevetedeacdededcdededededek&dedtedeste 
* IV-7. SUBROUTINE FOR COMPUTING CASUALTIES BY DIRECT Fine 
Kievevokdedesedevssevoededcdedvesekdededesvdevevededcdededexcstedesevedsdevetedededskievestcdevede desc tek dedctedetededesdesk tex 


SUBROUTINE DRFIR2 (DFANS,DFA,BRDIST,IA,IT,RF,BF,AR,RDFCAS , BDFCASs 


1 PLTN , RANGE ,NNN, ACO, AMO) 

INTEGER DFANS,DFA(4,1000),PLIN 

REAL RF(4,0: 1001) ,BF(4,0: 1001) ,PLBP,FBF(0: 1001) 
REAL BRDIST,RANGE, RED, BLU, RDFCAS , BDFCAS, AR, BR,MU,PL 
DATA PLBP 7 (sto) 

DATA AOMEGA,BOMEGA /0.50,1.00/ 

DATA AC,BC /0. 0380,0. 0160/ 

DATA AM, BM /0. 23,0. 00010/ 

DATA MU Ae, 

ACO = AC 

AMO = AM 

TECNNN 2 GI210)) 6GO! 10 1610 

PL = PLIN 


[610-7 Feri), = FL 

C---FIND ENGAGED FORCES OF BOTH SIDES ON DIRECT PIRESEARirom 
RED =<RF( TA, 11) 
BLU = BFC IA,IT) 


C---CASE-#1 (MIXED LAW) : BLUE FORCE AMEUSHES THE RED FORCEM 
TPCURANS ~ 20.251) “HEN 
AR AM * (1. 0-BRDIST/RANGE)***MU 
BR Bi -* Cl, O-BRDISc /Re GE MG 
BLU = FBFCIT) 
TECBLU i> PEEP “Phi 
RDFCAS = 0.0 
BLU = 0.0 
ELSE 
RDFCAS = AR * BLU 
ENDS Ts 
BDFCAS = BR * BLU * RED 
FBFC IT) = BLU - BDFCAS 


Pi =sr ero) 
NNN = NNN + i 
GC 101700 


C---CASE-#2 (HEMBOLT FQUTION) ! 
ELSE IF(DFANS .EQ. 2) THEN 
IF(CRED .LE. 0. SOR. BBLU 2 LE. Os naan 
0 


BDFCAS = 0. 
RDFCAS = 0. 
GOTO 13 G0 
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END IF 
AR = AC * (1. 0-BRDIST/RANGE )***MU 
BR = BC * (1. O-BRDIST/RANGE)**MU 


RDFCAS = AR*((RED/BLU)***( 1. O-BOMEGA) )*BLU 
BDFCAS = BR*(( BLU/RED)***( 1. O-AOMEGA) )*RED 
END” IF 
1900 RETURN 
END 


seocdeseoescsevcccsedeokeskovocacsesccakesleskeskobvsesedc drake cesesdeskccesdtskeskocstskcoke ces seskskeadcaesecese sk eskeskrorseskcske sess 


PelvV-8. SUBROUTINE FOR COMPUTING THE ADJUSTED SPEED BASED ON 


* THE NUMBER OF RED UNITS (BATTALIONS) ON ONE AVENUE. 
Sesedeavseavsesdeveskescdkesesevesksesstedeskvsesevcdedede skedesedesest aedesededescslesedeaksdesesesk dese skews desk doovdedesese ok ak oe dese oe 


SUBROUTINE ASPED2 (1,IR,SPEED,ADSP) 


INTEGER IR,AOA1(4) ,AOA2(3) ,AOA3(6) 


REAL SPEED(44) , ADSP(44) 
DATA AOA1 /5,15,33,35/ 
DATA AOA2 /4,7,19/ 
DATA AOA3 De aS / 
CgutO (201-202°203,204) IR 
201 ADSP(I) = SPEED(I) 
GO 10) Zens 
202 ADSP(I) = SPEED(I) 
DO 2011 J = 1,3 
2011 IF(I .EQ. AOA2(J)) ADSP(I) = 0. 9*SPEED(I) 
GO TO 2010 
203 ADSP(I) = SPEED(I) 
PO Oey =o 1,6 
2012 IF(I .EQ. AOA3(J)) ADSP(I) = 0. 9*SPEED(I) 
AO ae) LONG 
204 ADSP(I) = SPEED(I) 
HOMO) te 3 
2013 IF(I .EQ. AOA2(J)) ADSP(I) = 0. 8*SPEED(I) 


2010 RETURN 
END 


Sevsasvesvavsecveadeakcseslessdevevesesvovcedevesvskevesesesvocsdesesededeveskvdedcadeseskeskealesescsestesvotscdese de okvovavaesevevesk secokse 


geeey eo? SUBROUTINE FOR COMPUTING THE REDUCED SPEED 


* BASED ON EACH WEAPON TYPE. 
Wwacvedssedcsevesssevevesvedesevedccesevede KesededevesedesededesedesetedeHesesetetek devestesescdededededesededededdedededssedede 
SUBROUTINE RSPED2 (IA,IT,NA,SPEED,TIME,DIST,WID,RANGE,AR,RF, 
1 IFANS ,MFANS , DFANS , OSPEED, ACO, AMO) 
INTEGER NA,WID,IFANS ,MFANS , DFANS 
REAL AR,DISTCNA) ,SPEED(NA) , TIMECNA) ,MINSPD,RFC(4,0: 1001) 
REAL OSPEED(NA) 
DATA MINSPD /0.500/ 


IF(IFANS .EQ. 1) THEN 

SPEED(WID) = DIST(WID)*60. /(TIME(WID)+10. ) 
END IF 
IF(MFANS .EQ. 1) THEN 

SPEED(WID) = DIST(WID)*60. /(TIME(WID)+20. ) 


ee 


Epo lr 
TEC MEANS = E@2 2) Sian 
SPEED(WID) = DISTCWID)*6007( TIMER Nie. 
END IF 
IFCDFANS .EQ. 1) THEN 
SPEED(WID) = SPEEDCWID) * (1. 0-AR/AMO) + MINSPD 
IF(CSPEED(WID) .GT. OSPEED(WID)) SPEEDCWID) = OSPEEU Gia 
ENDS IE 
IFCOFANS 2EG. 2) ue 
IFC RECTAG1IT 2020) eae 
SPEED(WID) = 0. 
Ecos 
SPEEDOWID) = SPEED(WID) * (1. 0-AR/ ACO) ii eae 
IF(SPEED(WID) .GT. OSPEEDC(WID)) SPEED(WID) = OSPEED( Wiae 


END IF 

END IF 

RETURN 

ae 
Keke se sevevsvevedevedeve se Te deve seve Veve sede dese ded te de dove secede Tete de seve seve ve dove te vek te teveveve te te te veve te eve feve te ve sede se deve 
* JV- 10. SUBROUTINE TO FIND THE TINE AND LOCATION 
¥ REE RED eee Sanco BREAK- ~POINT ! 
pel iar arbor] dr) sh eta bilo bok bar barbarian atk pbb ae lee tae boty Sela tee debe tart oie hirberiieloe ke kar warts ae (srl srinrase dari arhnr lar ise lanka ochactsine an risen ee 


SUBROUTINE BREA K2 (IA, IT,NOC ,WHOLD RF, BF , RRESER, BREAKP, BREAKT) 


INTEGER RRESER 
REAL BREARP( 4) ,BREAKT(4) ,WHOLD, RF(4, 0: 1001) ,BR(G203100%) 


Re 0A. 2) 0. 
Bri ieee tl) BE GIA Ta 
TFGNOCG] EG. 0)) THES 
C RE Claw) = RPP i- 1) + RRESER 


BREAKP( IA) = Hon 
BREAKTC IA) = 
EXO ls 
NOC. = FNCC =o) 
ie RETURN 
BND 
ord ae tel ede barter tee taris ioe ine baked oe lore ce heretic oe oie) Sevevevevedeveve sede Te teve seve se te devedese seve sede ve ve Tove Fe ve Tove Se evese We cace ae ve cee ae 
7 1V- lie SUBROUTINE TO PRINT THE CASUALTIES AND SURVIVORS 
% Ss eee oe a a ee CTYPE. 
Per ee) 2 dela aber bia br Lar bictoe ir bie ber badd tei aie ar aris ar borate tac arbi tee ark Phils tiriar iar bae rirbcba tartar pita lar oiticis varia ic biclicisehi or torasrns lacksdisei 
SUBROUTINE PRINT2 “(RBY, 3CO, BLUEP] “BLUEP2 , RRESER , PLINSNee 
1 as Cu, MFSUM, RDFSUM, BDFSUM, 
1 TRCAS , TBCAS , TRSUR , TBSUR) 
INTEGER RBN,BCO,BLUEP],BLUEP2 (NE RRESER Se. 
REAL IFSUM(4), MFSUM(4) , RDFSUM(4) , BDFSUM(4) 
REAL TIFSUM , TMFSUM, TRDF , TBDF 
REAL TRCAS , TRSUR , TBCAS , TBSUR 
TIFSUM = 0.0 
TMFSUM = 0.0 
TRDF = 0.0 
TBDF = 0.0 
TROASs= C20 


TBCAS = 0.0 

TRSUR = 0.0 

TBSUR = 0.0 

DO 101 IA = 1,4 
Tipsvay= ITFSUM( 1A) + TIFSUM 
IMFSUM = MFSUMCIA) + TMFSUM 


TRDF = RDFSUM(IA) + TRDF 
TBDF = BDFSUM( IA) + TBDF 
101 CONTINUE 
dir ©="RBN<3.0 + RRESER 
ibe = BEO*3..0 + PLIN 
BFCAS1 = BDFSUM(1) + BDFSUM( 2) 


BFCAS2 = BDFSUM(3) + BDFSUM(4) 

BFSUR1 = BLUEP1*BCO - BFCAS1 

BFSUR2 = BLUEP2*BCO - BFCAS2 

TRCAS = TIFSUM + TMFSUM + TRDF 

TRSUR = TRF - TRCAS 

TBCAS = TBDF 

TBSUR = TBF - TBCAS 

RETURN 

END 
FOS NO IIE Sori alr i ae bie bot dir a irate he a ip sevedevedevevededeveveseveds dove He deve oe aleve deve ss ce closes deve sk deve sede de sesevlevde vest 
* Y, SUBROUTINE TO COMPUTE THE WEIGHTED UTILITY VALUES OF BLUE 
ve SURVIVOR FOR EACH UTILITY FUNCTIONS | 


OS te hee Ga ae ote baie ke bot aoe Moe Yo Sir a ine aie ot ie hike ge bi bie ie abi ae bie ie ir oie bake ir oi oir ie oie se oie hte oe ote | oie sie ke kote ioe bor ote ie oi ke ie ae Gal 


SUBROUTINE. UTIL CMR, oie VALUE, LIN,SQU, ROO) 


INTEGER MR,MB 


REAL VALUE(4) ,UL(4) ,US(4) ,UR(4) 
REAL LIN, SQU,ROO,ALIN,WGT(4) 
DATA Wieden; O05 ,0. 70,0. 05.0, 20/ 
DATA ALIN /340.0/ 

TEMP1 = 0. 

TEMP2 = 0. 

TEMP3 = 0. 


Bee ol lLiTY VALUES FOR THE BLUE SURVIVORS ! 
DO 2301 K = 1,4 
ULC K)=(9. /55. )*VALUE(K) + 10. 
IF(VALUE(K) . LE. ALIN) UL(CK)=(9. /55. )*VALUE(K) 
USC K)=(1. /3025. )*VALUE(K)**2. 0 
URC K)=(4. 264014327 )*VALUE(K)**0. 5 


iB ulen 
EMP? 
EMP? 
2301 CONTINUE 
LIN = TEMP1 
SQU = TEMP2 
ROO = TEMP3 
RETURN 
END 


WOUGk) ULC K) + TEMP1 
WGECK)*US(CK) + TEMP2 
WET URGK)» + TEMPS 
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APPENDIXN E. EXEC FOR ADVANCED MODEL 


This is a execution code of Fortran-77 for the advanced model in Appendix D. 


FILEDERA] DISRSUErE Sis, Desire 
EAEC WET? ADVAN (NOER NO wwe 
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